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NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
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SYSTEM REQUIREMENTS 


1.2.1 HARDWARE REQUIREMENTS 
1.2.2 SOFTWARE REQUIREMENTS 


RELATED DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 

DIAGNOSTIC HISTORY 


OPERATING INSTRUCTIONS 


2.1 
2.2 


2.3 


HARDWARE PARAMETERS 
SOFTWARE PARAMETERS 


2.2.1. TS04 COMMAND LIST 
2.2.2 DATA PATTERNS 


EXAMPLES OF SOFTWARE PARAMETER DIALOGUE 
2.3.1 BASIC FUNCTION AND DATA RELIABILITY 


WITH ALL ERROR REPORTING ENABLED 
2.3.2 SCOPE LOOP SET UP IN BASIC FUNCTIONS 


2.3.3 SCOPE LOOP SET UP IN DATA RELIABILITY 


SEQ 0002 





2.4 EXECUTION TIMES SEQ 0003 
2.4.1 SYSTEM ‘CONFIGURATION 
2.4.2 TEST EXECUT!ON TIMES 

“~~ 3.0 47 “ERROR INFORMATION ~ ‘ 

3.1 ERROR REPORTING 


3.1.1 ERROR #1 - COMMAND PACKET ADDRESS 1S NOT ON A MODULO 4 BOUNDRY 
3.1.2 ERROR #2 = 1S04 NOT READY 
3.1.3 ERROR #3 = NO RESPONSE ERRORS 
3.1.4 ERROR #4 = NO INTERRUPT ERROR 
3.1.5 SPECIAL CONDITION ERRORS 
Se ‘ 5.1 ERROR #5 = TCCO, UNDEFINED SPECIAL CONDITION 
3.1.5.2 ERROR #6 - TCC1, ATTENTION CONDITION 
3.1.5.3 ERROR #7 - TCC2, TAPE STATUS ALERT 
3.1.5.4 ERROR #8 - TCC3, FUNCTION REJECT 
3.1.5.5 ERROR #9 - TCC4, RECOVERABLE ERROR 
3.1.5.6 ERROR #10- TCC5, RECOVERABLE ERROR 
3.1.5.7 ERROR #11- TCC6, UNRECOVERABLE ERROR 
3.1.5.8 ERROR #12- TCC7, FATAL SUBSYSTEM ERROR 
3.1.6 ERROR #13 - RFC NON-ZERO ERROR 
5.1.7 ERROR #14 = RETRY LIMIT EXCEEDED 
3.1.8 ERROR #15 - TOO MANY INTERRUPTS 
3.1.9 ERROR #16 - CAPSTAN RUNAWAY 
3.1.10 ERROR #17 - DATA COMPARE ERRORS 


3.2 ERROR HALTS 


4.0 PERFORMANCE REPORT 


5.0 TEST SUMMARIES 


5.1 TEST 1 = BASIC FUNCTIONS 
5.2 TEST 2 = DATA RELIABILITY 
» Doe TEST 3 = WRITE COMPATABILITY/WRITE UTILITY 
5.4 TEST 4 = READ COMPATABILITY/READ UTILITY 
5.5 TEST 5 = EXECUTE OPERATOR SELECTED COMMAND SEQUENCE 





DEVICE INFORMATION 
6.1 GENERAL 


SEQ 0004 


UNIBUS INTERFACE SPECIFICATIONS 
BIT DEFINITIONS FOR [S11/TS04 REGISTERS 


AAanonron 
soeeesees 
IN\ANIWANN A 
*eeeee 
Owe wr— 


TS11/TSO4 REGISTER SUMMARY 
TS11 STATUS REGISTER (TSSR) 
EXTENDED STATUS REGISTER O (XSTATO) 
EXTENDED STATUS REGISTER 1 (XSTAT1) 
EXTENDED STATUS REGISTER 2 (XSTAT2) 
EXTENDED STATUS REGISTER 3 (XSTAT3) 


GLOSSARY : 
mers SEQ 0005 


ACT AUTOMATED COMPUTER TEST SYSTEM 
APT AUTOMATED PRODUCT TEST SYSTEM 
ee COUNT IS STORED IN THE 4TH WORD OF THE COMMAND 


PACKET AND IT'S USE BY THE TS04 DEPENDS 
ON THE TYPE OF COMMAND. 


CMD TSO4 COMMAND (SEE 2.5.14.1 FOR LIST OF COMMANDS) 
COMMAND PACKET FOUR WORD PACKET IN THE CPU MEMORY WHICH 
CMDPKT CONTAINS ALL INFORMATION NEEDED BY THE 


TSO4 TO EXECUTE A COMMAND. 


EXTENDED STATUS FOUR WORDS OF TSO4 STATUS WHICH ARE 
TRANSFERRED AS PART OF THE MESSAGE PACKET AT 
THE COMPLETION OF A COMMAND. 


MESSAGE PACKET SEVEN WORD PACKET IN THE CPU MEMORY INTO 
WHICH THE TSO4 STORES STATUS AT THE 
COMPLETION OF A COMMAND. 


PC PROGRAM COUNTER 

PSW PROCESSOR STATUS WORD 

RESIDUAL FRAME COUNT THIS COUNT 1S PART OF THE MESSAGE PACKET 

RFC AND CONTAINS THE NUMBER OF BYTES/RECORDS 
Ns /FILES REMAINING TO BE PROCESSED AT THE 

COMPLETION OF A COMMAND. 
SPECIAL CONDITION TSS4 BIT15. WHEN SET, INDICATES THAT 
SPEC COND THE LAST COMMAND D1D NOT COMPLETE WITH- 


OUT INCIDENT. 


TERMINATION CLASS CODE THREE BIT CODE IN THE TSSR WHICH INDI- 
TCC CATES THE TYPE OF COMMAND TERMINATION. 


TSBA TAPE SYSTEM BUS ADDRESS REGISTER. 

TSDB TAPE SYSTEM DATA BUFFER REGISTER. 

TSSR TAPE SYSTEM STATUS REGISTER. 

xSTO EXTENDED STATUS REGISTER 0 

XST1 EXTENDED STATUS REGISTER 1 

XST2 EXTENDED STATUS REGISTER 2 

xXST3 EXTENDED STATUS REGISTER 3 

XXDP+ XXDP+ 1S A “'CATCH=ALL" NAME FOR A GROUP OF PDP=11 


DIAGNOSTIC PACKAGES AVAILABLE ON MULTIMEDIA, 


1.0 GENERAL INFORMATION 


THIS PROGRAM CAN BE USED AS A BASIC FUNCTION TEST, A DATA RELIABILITY 
TEST, A COMPATABILITY TEST, OR TO EXECUTE A SEQUENCE OF OPERATOR 
SELECTED COMMANDS. 


1.1.2 STRUCTURE OF PROGRAM 


THIS DIAGNOSTIC IS A SINGLE PROGRAM 
FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT IT CONTAINS A CONTROL 
MODULE RELEASED INDEPENDENTLY AS A DJAGNOSTIC SUPERVISOR. 


SEQ 0006 


1.1.5 MEMORY MAP 


ts Ip SEQ 0007 

“areata 
' ' 
; VECTOR ' 
; AREA ‘ 
' ' 
! 
400 !ee------------ ' 
! ' 
i 
: STACK ‘ 
' ' 
‘ ' 
2000 aerated 
ee i 
DIAGNOSTIC 
41000 !-------------- 
' ' 
i i 
. ! DIAGNOSTIC ! 
; SUPERVISOR ; 
12008 oureneemnnenne 
: XXDP+ : 

i] . # 
3 : 
77777 onneneeneenen--- 


FREE MEMO SPACE FOR WR/RD BFRS OR OTHER PUROSES 

1S ALLOCATED BY THE SUPERVISOR ON REQUEST OR CHOOSEN 
BY PROGRAMMER TO RESIDE BETWEEN THE DIAG AND THE 
SUPERVISOR. 





1.1.4 DIAGNOSTIC INFORMATION 
cconccerecendennwsaces SEQ 0008 


THIS DIAGNOSTIC CAN TEST UP TO 4 UNITS SIMULTANEOUSLY. THE 4 UNITS 
ARE ASSIGNED LOGICAL UNIT NUMBERS 0 - 3 BY THE DIAGNOSTIC. 


THERE ARE 5 TESTS IN THIS PROGRAM: 


TEST 1 = BASIC FUNCTIONS. 

TEST 2 = DATA RELIABILITY. 

TEST 3 = WRITE COMPATABILITY/WRITE UTILITY. 
TEST 4 = READ COMPATABILITY/READ UTILITY. 
TEST 5 = OPERATOR SELECTED SEQUENCE. 


ERROR RECOVERY 1S PERFORMED ON READ, WRITE AND WRITE TAPE MARK 
ERRORS UNLESS RECOVERY IS INHIBITED BY THE OPERATOR. THE WRITE 
AND WRITE TAPE MARK RETRY LIMIT IS 16. THE READ FORWORD/READ 
REVERSE RETRY LIMIT 1S 16 (8 IN THE SAME DIRECTION AND 8 IN THE 
OPPOSITE DIRECTION). FOR MORE INFORMATION ON ERROR RECOVERY 
PROCEDURES, SEE SECTION 3.0 (ERROR REPORTING). 


1.2 SYSTEM REQUIREMENTS oa. 


, [1.2.1 HARDWARE REQUIREMENTS 
~- wee eee mB emer em eee 


PDP-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30,LA36,V1T50,ETC.) 
PROGRAM LOAD DEVICE 


1.2.2 SOFTWARE REQUIREMENTS 


DIAGNOSTIC SUPERVISOR - REVISION D 


1.5 RELATED DOCUMENTS AND STANDARDS 
SEQ 0009 


XXDP+ USERS MANUAL MD-11-CHQUS 

DIAGNOSTIC SUPERVISOR PROGRAM LISTING 

PDP=-11 DIAGNOSTIC SUPERVISOR INTERFACE SPECIFICATION. 
PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMER'S GUIDE. 
TS11/TSO4 PROGRAMMING SPECIFICATION. 

TS11/TS04 ENGINEERING SPECIFICATION. 

TS11/TSO4 COMMAND PACKET SPECIFICATION. 


1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 


ORDER OF HOST CPU DIAGNOSTIC USAGE: 
1) CONTROL LOGIC PROGRAM - ALL TESTS. 
2) DATA RELIABILITY PROGRAM: 


A) BASIC FUNCTION TEST. 
B) DATA RELIABILITY TEST. 


1.5 ASSUMPTIONS 


THE HARDWARE OTHER THAN THE SUBSYSTEM BEING TESTED IS ASSUMED TO WORK 
PROPERLY. FALSE ERRORS MAY BE REPORTED IF THE PROCESSOR, MEMORY, ETC., 
DO NOT FUNCTION PROPERLY. 





1.6 DIAGNOSTIC HISTORY 


REVISION A 


REVISION B 


REVISION B 


- OCT 1978 
- ORIGINAL RELEASE 


- FEB 1979 
- CORRECTED END OF TAPE PROBLEMS IN TESTS 3-5. 
- CHANGED DEFAULT VECTOR ADDRESS FROM 150 TO 224. 
- a tee, MAXIMUM RECORD LENGTH FROM 4096 TO 2048 BYTES. 
-DO NOT PRINT RECOVERABLE ERRORS UNLESS REQUESTED BY OPERATOR 
“WARN OPERATOR OF UNIT(S) BEING NOT READY OR OFF-LINE. 
DROP UNIT(S) LEFT NOT READY OR OFF-LINE FOR 3.5 MINUTES. 
-IMPROVE BEHAVIOR AT EOT 
“IN TEST 2, FREEZE UNITS REACHING EOT UNTIL OTHERS 
CATCH-UP INSTEAD OF ALLOWING THEM TO SHUTTLE AT EOT 
“WHEN ALL UNITS REACH EOT, WRITE ONE RECORD BEYOND EOT. 
IN TEST 5, READ REV THAT EXTRA RECORD TO POSITION TAPE 
SO THAT THE NEXT COMMAND REQUESTED CAN BE EXECUTED. 
THAT EXTRA RECORD SHALL LEAVE A CLEAN IRG GAP AND A VALID 
RECORD TO READ WHEN SHORTER READ STOP DISTANCE MIGHT CAUSE 
UNIT TO FLAG EOT ON THAT EXTRA RECORD INSTEAD OF THE 
PREVIOUS ONE. THIS SHOULD ELIMINATE MANY READ ERRORS AT 
EOT AND TAPES RUNNING OFF THE WHEELS. 
“WRITE RECORD COUNT ON TAPE. 
PRINT RECORD COUNT READ FROM TAPE IN READ ERROR PRINTS TO 
INDICATE IF POSITION WAS LOST. 


* CAUTION * 


INTERPRET THAT ‘'RECORD READ‘ COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC, 
POSITION IS NOT NECESSARELY ' JST. ERRORS IN READING THAT 
RECORD MIGHT HAVE CAUSED RECURD COUNT TO BE ERRONEOUSLY 


APE. 

IN TEST 2, IF DIAGNOSTIC 1S RESTARTED OR CONTINUED, RECORD COUNT 
1S RESET TO ZERO ALTHOUGH TAPE WAS NOT REWOUND. THIS IS 

NECESSARY BECAUSE THERE 1S NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHAT ag THE DIAGNOSTIC WAS HALTED 

BEFORE RESTARTING OR CONTINUING 

IT 1S SUGGESTED THAT A ‘PRINT’ BE REQUESTED WHEN HALTING DIAG 
TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 


“VERIFY RECORD OF 4000 BYTES INSTEAD OF 22 BYTES 

“WHEN COMPARING DATA, CHECK AND PRINT IF NO DATA "WAS READ 

OR RECORD WAS LONGER THAN EXPECTED. 

“FREEZE TSSR REG WHEN A COMMAND IS COMPLETED TO AVOID DIFFERENCES 
BETWEEN TSSR AND TCC FETCHED AT DIFFERENT TIMES. 


“WHEN DROPPING : UNIT, FLAG SECOND PRINT OF EXTENDED STATUS AS BEING 


THE RESULT OF A GET STATUS COMMAND. 
WAIT FOR SSR UP BEFORE PRINTING THAT STATUS. 


“ADJUST ‘‘PASS'’ COUNT OF DIAG TO MATCH ‘EOP’ PASS COUNT OF SUPERVISOR. 


“4NCREASE NUMBER OF SELECTABLE COMMANDS IN TEST 5 FROM 
4 10 7. DEFAULT COMMAND 6 1S NOW REWIND. 
-CONVERT DIAG TO REV C OF SUPERVISOR. 
ADD SEVERAL SECTIONS: 
PROTECT TABLE 
AUTO=DROP CODE 
HARD CODED PARAMETER TABLE 


SEQ 0010 


2.0 OPERATING INSTRUCTIONS 
aaannmmmeemames SEQ 0011 


hol asp INSTRUCTIONS, PLEASE SEE CHAPTER 5 OF XXDP+ OPERATOR''S 
L. 


2.1 HARDWARE PARAMETERS 


ON A “'N’’ RESPONSE TO “‘CHANGE HW?"', THE DIAG SHALL RUN ASSUMING 
ONE UNIT AT TSSR = 177522 WITH A VECTOR = 224. 


ON A ‘‘Y"’ RESPONSE TO “CHANGE HW?"’ QUESTION, THEN 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE 
VALUE LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT 
VALUE THAT WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 


TSSR ADDRESS (172522) ?, 
VECTOR (224) ? 


THE VALIDITY OF THESE PARAMETERS CAN BE CHECKED renee RUNNING THE TESTS 
BY SETTING THE FLAG ‘‘ADR'’ ON A STA, RES OR CON COMMAND. 
THE SO CALLED AUTO DROP CODE SHALL THEN BE EXECUTED AFTER THE INIT CODE 
AND BEFORE THE HARDWARE TESTS ARE RUN. THAT CODE FIRST TESTS THE ADRRESS 
OF THE TSSR(S). IF NO RESPONSE, IT DROPS THE UNIT(S) IMMEDIATELY 
WITH THE FOLLOWING MESSAGE: 

BUS TRAP AT XXXXXX ( — = TSSR AD ) 

INTERFACE BAD OR NOT SET TO ABOVE A 
ON A RESPONSE FROM THE INTERFACE, THE UNITS. THAT ARE NOT READY OR NOT 
ON-LINE ARE DROPPED IMMEDIATELY. THE HARDWARE TESTS SHALL THEN 
BE RUN ON RESPONDING UNITS. 


If THE “‘ADR"’ FLAG 1S NOT SET, THE READY AND OFF-LINE STATUS OF THE 
UNITS ARE CHECKED. A MESSAGE SHALL BE PRINTED EVERY SO OFTEN 

TO WARN THE OPERATOR OF UNITS BEING NOT READY OR OFF-LINE. THESE UNITS 
SHALL BE DROPPED AFTER A REASONABLE AMOUNT OF TIME (3 MIN ON A 11/70). 





2.2 SOFTWARE PARAMETERS 
an teeemenemeenemanes SEQ 0012 


THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, 
OR CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. 


CLEAR COUNTERS (L) Y ? 

RESET RANDOM VARIABLES (L) N ? 

HALT AFTER EACH CMD (L) N ? 

PRINT RECOVERABLE ERRORS (L) N ? 

DISABLE INTERRUPTS (L) N ? 

INHIBIT RECOVERY (L) N ? 

CHANGE CMD SEQUENCE (L) N ? 

NOTE: THIS QUESTION SHOULD BE ANSWERED (N) UNLESS AN 
OPERATOR SELECTED SEQUENCE IS TO BE EXECUTED. 
IF THIS QUESTION WAS ANSWERED (N), NO MORE 
QUESTIONS WILL BE ASKED. If THIS QUESTION WAS 
ANSWERED Y, THE FOLLOWING QUESTIONS MUST BE 
ANSWERED OR DEFAULTED WITH A <CR> ONLY: 


INHIBIT RFC ERROR REPORTS (L) N ? 
CHARACTERISTICS CODE (0) 40 ? (0,20,40,200) (OCTAL) 


CMD/2 (D) 13 ? (1-27) (DECIMAL) 
BRF COUNT (D) 1 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 1? (1-32K) (DECIMAL) 
PATTERN “ )7? (0-8) (DECIMAL) 
CMD/3 (D) 4 (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) | 
PATTERN (D) 7 ? (0-8) (DECIMAL) : 
CMD/4 (D) 3 ? (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) 
PATTERN (D) 7? ? (0-8) (DECIMAL) 
CMD/5 (D) 2 ? (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/6 (D) 13. ? (1-27) (DECIMAL) 
BRF COUNT (D) 1 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 12 (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/7 (D) 27. (1-27) (DECIMAL) 
BRF COUNT (D) 204 48 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 32000 ? (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 
CMD/8 (D) 27. ? (1-27) (DECIMAL) 
BRF COUNT (D) 2048 ? (1-2K) (DECIMAL) 
# OF OPERATIONS (D) 352000 ? (1-32K) (DECIMAL) 
PATTERN (D) 7 ? (0-8) (DECIMAL) 


NOTE: THE PROGRAM AUTOMATICALLY INSERTS AN CHARACTERISTIC 40 
AS THE FIRST COMMAND IN THE SEQUENCE TABLE. IF A 


n 1 
DIFFERENT CHARACTERISTIC IS DESIRED, THE GFERATOR SHOULD 
ENTER THAT CHARACTERISTIC CODE. A TOTAL OF 7 CUMMANDS SEQ 0013 
MAY BE ENTERED IN ADDITION TO THE SET CHARACTERISTICS 
COMMAND. IF THE OPERATOR WISHES TO USE LESS THAN 7 
COMMANDS, AN END COMMAND MUST BE ENTERED AND THEN A 
CONTROL Z (*Z) CAN BE ENTERED TO TERMINATE SOFTWARE DIALOGUC. 


2.2.1 COMMAND LIST FOR USE IN SOFTWARE DIALOGUE. 
CODE COMMAND DESCRIPTION 


DRI DRIVE INITIATE. 
RDF READ FORWARD. 
READ REVERSE. 
WRT WRITE. 
wiv WRITE/VERIFY. IE. WRITE N RECORDS; READ REVERSE AND CHECK 
N RECORDS OF DATA; READ FORWARD AND CHECK N RECORDS. 
SRF SPACE RECORDS FORWARD. 
SRR SPACE RECORDS REVERSE. 
RNR READ NEXT REVERSE, IE. SPACE FWD, READ REV. 
RNF READ NEXT FORWARD, IE. READ FWD, SPACE REV. 
RPF READ PREVIOUS FWD, IE. SPACE REV, READ FWD. 
RPR READ PREVIOUS REV, IE. READ REV, SPACE FWD. 
WRR WRITE RETRY. 
RWO REWIND. 
MBR MESSAGE BUFFER RELEASE. 
WRITE TAPE MARK 
WIR WRITE TAPE MARK RETRY. 
SFF SPACE FILES FORWARD. 
SFR SPACE FILES REVERSE. 
GES GET EXTENDED STATUS. 
ERS ERASE 3 INCHES OF TAPE. 
UNL UNLOAD. 
CLN CLEAN TAPE 
SCH SET DEVICE CHARACTERISTIC. WHERE BRF=200, 40, 20, 0. 
200 = ENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT) 
40 = ENABLE ATTENTION INTERRUPTS. 
20 = ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 
SEE TS11/TSO4 PROGRAMMING SPECIFICATION FOR DESCRIPTION. 
24 = DIA DIAGNOSTICS. SEE 1S$11/TSO4 PROGRAMMING SPECIFICATION 
FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC DATA 
INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
25 = JMP JUMP TO THE NTH COMMAND IN THE COMMAND SEQUENCE 
TABLE, WHERE N IS DEFINED IN THE BRF FIELD. 
26 = OLY DELAY ‘'N'’ MILISECONDS WHERE N IS DEFINED IN 
THE # OF OPERATIONS. 
27 = END END OF COMMAND SEQUENCE. 


SEQ 0014 
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2.2.2 DATA PATTERN LIST FOR USE IN SOFTWARE DIALOGUE. 
PATTERN # DESCRIPTION. 


0 INCREMENTING PATTERN. 0 - 377. 
ALL ‘'1"''S PATTERN 

ALL "O'S PATTERN. 

""1"" BIT WALKING FROM R T 


OL IELD OF ‘‘0'''S. 
"0" BIT WALKING FROM R TO : ] 
N 


ELD OF ‘"I'"'S. 
ALTERNATING ‘'l'’ AND ‘0’ B ALTERNATE BYTES COMPLIMENTED. (125/252) 
ALTERNATING BYTES OF 000 A 
RANDOM DATA PATTERN. 

NO PATTERN GENERATION. 


ONO WS wh 
o- 


2.5 EXAMPLES OF SOFTWARE DIALOGUE 


2.5.1 


BASIC FUNCTION AND DATA RELIABILITY WITH ALL ERROR REPORTING ENABLED 


RECEIVE PROMPT (DR>) 

ENTER STA/TES:1=2<CR> 

ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARIABLES (L) N ? 
HALT AFTER EACH CMD (L) N ? 

PRINT RECOVERABLE ERRORS (L) N ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RECOVERY (L) N ? 

CHANGE CMD SEQUENCE (L) N ? 


Y<CR> 
Y<CR> 
N<CR> 
N<CR> 
Y¥<CR> 
N<CR> 
N<CR> 
N<CR> 


SEQ 0015 


2.3.2 TO SET 


VOW», 
we we we 


2.3.3 TO SET 


UP A SCOPE LOOP FOR A FAILURE IN BASIC FUNCTIONS. 


RECEIVE PROMPT (DR>) 

ENTER STA/TES:1/FLA:LOE: IER: 1SR:1DU<CR> 
ANSWER HARDWARE QUESTIONS. 

PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE Sw (L) ? 

CLEAR COUNTERS (L) N ? 

RESET RANDOM VARTABLES (L) »" ? 
HALT AFTER EACH CMD (L) N ? 

PRINT RECOVERABLE MERRORS (L) N ? 
DISABLE INTERRUPTS (L) N ? 
INHIBIT RECOVERY (L) N ? 

CHANGE CMD SEQUENCE (L) N ? 


UP A SCOPE LOOP FOR A FAILURE IN DATA RELIABILITY 


RECEIVE PROMPT (DR>) 


Y<CR> 
Y<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 
N<CR> 


ENTER STA/TES:5/FLA: IER: 1SR:1DU/EOP: 1000<CR> 


ANSWER HARDWARE QUESTIONS. 
PROCEED WITH THE FOLLOWING DIALOGUE: 


CHANGE SW (L) ? Y<CR> 

CLEAR COUNTERS (L) N ? Y<CR> 
RESET RANDOM VARIABLES (L) N ? N<CR> 
HALT AFTER EACH CMD (L) N ? N<CR> 

PRINT RECOVERABLE ERRORS (L) N ? N<CR> 
DISABLE INTERRUPTS (L) N ? Y<CR> 
INHIBIT RECOVERY (L) N ? Y<CR> 
CHANGE CMD SEQUENCE (L) N ? Y<CR> 
INHIBIT RFC ERROR REPORTS (L) N ? Y<CR> 
CHARACTERISTICS CODE (0) id ? 40<CR> 
CMD/2 (D) 5 ? e 13<CR> 
BRF COUNT (D) 2048 ?° 1<CR> 
# OF OPERATIONS (D) 10 ? 1<CR> 
PATTERN (D) 7 ? 1<CR> 
CMD/3 (D) 5 ? Braga ee 4<CR> 
BRF (D) 2048 ? . 1000<CR> 
# OF OPERATIONS (D) 10 ? 10000<CR> 
PATTERN (D) 7 ? 1<CR> 
CMD/4 (D) 5 ? 27<CR> 
BRF (D) 2048 ? <*1> 


(REWIND) (COULD BE ANY COMMAND) 


(WRITE) (COULD BE ANY COMMAND) 


(END) 


(COULD BE ANY COMMAND) 


SEQ 0016 













2.4 EXECUTION TIMES 
coccoccocccccce SEQ 0017 


2.4.1 SYSTEM CONFIGURATION 


I a I eee 


PDP11/34 
MOS MEMORY 


LA36 
TS11/TS04 


2.4.2 TEST EXECUTION TIMES 


TEST 1 = BASIC FUNCTIONS - 30 SECONDS PER PASS. 

TEST 2 = DATA RELIABILITY = 45 MINUTES PER PASS. 

TEST 3 = WRITE COMPATABILITY - 20 MINUTES PER PASS. 

TEST 4 = READ COMPATABILITY - 20 MINUTES PER PASS. 

TEST 5 = OPERATOR SELECTED SEQUENCE - DEPENDS ON SEQUENCE SELECTED. 


NOTE: ALL EXECUTION TIMES ARE SHOWN FOR ONE UNIT OEPRATION. 
APPROXIMATELY 10% WILL BE ADDED TO ALL EXECUTION TIMES 
FOR EACH ADDITIONAL UNIT. 


3.0 ERROR INFORMATION 


ALL ERROR REP 


ORTS EXCEPT FOR ERRORS #1 AND #17 INCLUDE A DUMP 


OF THE FOLLOWING INFORMATION: 


ERROR # 


» TEST #, SUBTEST #, PROGRAM ron’ UNIT #, 


COMMAND, PREVIOUS COMMAND, PASS COUNT 


RECOR 
TcCc, 
(SEE 


STAND 


E XAMP 


DS FROM BOT, RECORD READ COUNT, THE COMMAND PACKET, TSSR, 
TSBA, RFC, AND THE EXTENDED STATUS REGISTERS 
2.3.14.1 FOR LIST OF COMMANDS). 


ARD ERROR REPORT FORMAT: 


CZTSH SFT ERR XXXXX TST XXX SUB XXX PC: KXXKXX 
(ASCI1 ERROR MESSAGE) 
XXX CMD FAILED - UNIT X PASS: XXXXX RECORD: XXXXX 
PREVIOUS CMD WAS XXX * RECORD READ: XXXXX * 
CMDPKT TSBA RFC TSSR =TCC 
MMXKXK AKAM MAK KKK XK 

x 


XSTO XST1 XST2 XST3 
KXKKKK KKK KKK KKK 


* CAUTION * 


INTERPRET THAT ‘'RECORD READ'’ COUNT WITH CAUTION. 

IF VERY DIFFERENT FROM RECORD COUNT TRACKED BY THE DIAGNOSTIC, 
POSITION 1S NOT NECESSARELY LOST. ERRORS IN READING THAT 
RECORD MIGHT HAVE CAUSED RECORD COUNT TO BE ERRONEOUSLY 

READ FROM TAPE. 

IN TEST 2, IF DIAGNOSTIC IS RESTARTED OR CONTINUED, RECORD COUNT 
1S RESET TO ZERO ALTHOUGH TAPE WAS NOT REWOUND. THIS 1S 
NECESSARY BECAUSE THERE IS NO ACCURATE WAY TO DETERMINE 

ON WHAT RECORD COUNT OF WHAT UNIT THE DIAGNOSTIC WAS HALTED 
BEFORE RESTARTING OR CONTINUING. 

1T 1S SUGGESTED THAT A ‘'PRINT'’ BE REQUESTED WHEN HALTING DIAG 
TO GET A PRINT OF THE RECORD COUNT WHEN HALTED. 


LE OF AN ERROR REPORT: 


CZTSH SFT ERR 00009 TST 002 SUB 000 PC: 010606 
RECOVERABLE ERROR 


WRT CMD FAILED - UNIT 2 PASS: 2 RECORD: 254 
PREVIOUS CMD WAS WRT 
CMDPKT TSBA RFC SSR TCC 
100005 002324 000000 10210 4 
051766 ~ 
000000 
000371 
$10 XST2 


x XST1 $13 
000350 000002 100004 000000 


SEQ 0018 


5.1.1 


3.1.2 


5.1.3 


3.1.4 


$.%.5 


_|3.1.5.1 


3.1.5.2 


6 
ERROR #1 = COMMAND PACKET ADDRESS NOT ON A MODULO 4 BOUNDRY: 


1F THIS ERROR 1S REPORTED, THE PROGRAM DID NOT LOAD PROPERLY. 
roamect ee FATAL ERROR AND THE PROGRAM MUST BE RELOADED 10 


ERROR #2 - 1S04 NOT READY: 


BEFORE ANY COMMAND IS ISSUED TO THE 1804, THE SUBSYSTEM READY 
BIT IN THE TSS4 IS CHECKED. IF THE SSR 1S NOT SET, THE PROGRAM 
REPORTS THE NOT READY ERROR. THIS IS A FATAL DEVICE ERROR AND 
THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE UNLESS THE IDU 
OPTION IS USED. 


ERROR #3 - NO RESPONSE ERROR: 


ONCE THE TSDB 1S LOADED, THE TS04 HAS ONE MILLISECOND TO RESPOND 
OR THE PROGRAM REPORTS A NO RESPONSE ERROR. THIS IS A FATAL 
DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST SEQUENCE 
UNLESS THE I1DU OPTION IS USED. 


ERROR #4 - NO INTERRUPT ERROR: 


COMMAND WAS ISSUED AND NO INTERRUPT RECEIVED. THE PROGRAM REPORTS 
THAT NO INTERRUPT OCCURRED. THIS IS A FATAL DEVICE ERROR AND 

THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE IDU 
OPTION IS USED. 


SPECIAL CONDITION ERRORS: 


IF, DURING EXECUTION, AN INCIDENT OCCURS FORCING THE TSSR 
SPECIAL CONDITION BIT TO SET, THE PROGRAM WILL SELECT ONE OF 
Do HANDLING ROUTINES, DEPENDING ON THE TERMINATION CLASS 
C . 


THE TERMINATION CLASS CODES IN THE TSSR ARE PROCESSED AS FOLLOWS 
WHEN SPECIAL CONDITION IS SET: 


ERROR #5 = TERMINATION CLASS CODE 0, UNDEFINED SPECIAL CONDITION 


THE ERROR IS REPORTED, A HARD ERROR IS LOGGED 
AND THE PROGRAM PROCEEDS NORMALLY. 


ERROR #6 - TERMINATION CLASS CODE 1, ATTENTION CONDITION 


THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 
SUCH AS GOING OFFLINE OR COMING ONLINE. THIS IS A FATAL DEVICE 
ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS 
THE IDU OPTION IS USED. 


3.1.5.3 ERROR #7 - TERMINATION CLASS CODE 2, TAPE STATUS ALERT 


SEQ 0019 


a CS 


3.1.5.4 


H 2 
A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 
TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, EOT. 
ACTION TAKEN DEPENDS ON THE TEST BEING EXECUTED 
1F THE CONDITION IS UNEXPECTED, THE ERROR is REPORTED AND 
A HARD ERROR 1S LOGGED. THE PROGRAM PROCEEDS NORMALLY. 


ERROR #8 - TERMINATION CLASS CODE 3, FUNCTION REJECT 


THE SPECIFIED FUNCTION WAS NOT INITIATED. BITS CF yee Ne 
RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA. THIS IS A F 

DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM THE TEST "tent 
UNLESS THE IDU OPTION IS USED. 


31.5.5 ERROR #9 - TERMINATION CLASS CODE 4, RECOVERABLE ERROR 


3.1.5.6 


3.1.5.7 


3.1.5.8 


3.1.6 


Balet 


TAPE POSITION 1S ONE RECORD BEYOND WHAT ITS POSITION WAS WHEN 

THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS TO LOG THE 

ERROR AND ISSUE THE APPROPRIATE RETRY COMMAND. IF RETRY LIMIT 
1S REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 
1S REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #10 - TERMINATION CLASS CODE 5, RECOVERABLE ERROR 


TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO:LOG THE 
ERROR AND RE-ISSUE THE ORIGINAL COMMAND. IF RETRY LIMIT IS 
REACHED BEFORE THE ERROR IS RECOVERED, RETRY LIMIT EXCEEDED 

1S REPORTED AS DESCRIBED IN ERROR #14 BELOW. 


ERROR #11 = TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR 


TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE IS 10 
REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR SEQUENCE 
NUMBERS. IF DENSITY CHECK IS SET THIS DIAGNOSTIC WILL REWIND AND 
RETRY THE COMMAND, OTHERWISE THIS IS A FATAL DEVICE ERROR AND THE 


DEVICE WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE I1DU OPTION IS USED. 


ERROR #12 - TERMINATION CLASS CODE 7, FATAL SUBSYSTEM ERROR 


THE SUBSYSTEM IS INCAPABLE OF PROPERLY PERFORMING COMMANDS OR AT 
LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. REFER TO THE 
FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR ADDITIONAL INFOR- 
MATION ON THE TYPE OF FATAL ERROR. THE DEVICE WILL BE DROPPED 
FROM THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #13 = RFC NON-ZERO ERROR: 
1f, AFTER EXECUTION, THE RESIDUAL FRAME COUNT IS NON-ZERO, THE 
ERROR 1S REPORTED AND A HARD ERROR IS LOGGED. THE PROGRAM THEN 


PROCEEDS NORMALLY. THE REPORTING AND LOGGING OF THESE ERRORS 
1S OPTIONAL. 


ERROR #14 = RETRY LIMIT EXCEEDED: 


SEQ 0020 


3.1.8 


3.1.9 


3.1.10 


Fr. 
ON A WRITE COMMAND THIS IS A FATAL DEVICE ERROR AND THE DEVICE 
WILL BE DROPPED FROM THE TEST CYCLE UNLESS THE I1DU OPTION IS USED. 


ON A READ COMMAND THIS ERROR IS LOGGED AS A HARD ERROR AND 
THE PROGRAM PROCEEDS NORMALLY. 


ERROR #15 - TOO MANY INTERRUPTS: 


If MORE THAN ONE INTERRUPT OCCURS PER COMMAND, THIS ERROR IS REPORTED. 
THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 
THE TEST CYCLE UNLESS THE IDU OPTION IS USED. 


ERROR #16 - CAPSTAN RUNAWAY: 


CAPSTAN DID NOT STOP WITHIN ACCEPTABLE WINDOW AFTER LAST 

COMMAND. THE PROGRAM WILL ISSUE A GET STATUS COMMAND BEFORE REPORTING 
THE ERROR SO THAT THE DEAD TRACK FIELD IN EXTENDED STATUS REGISTER 2 
WILL CONTAIN THE TACH COUNT WHEN THE TAPE STOPPED 

THIS IS A FATAL DEVICE ERROR AND THE DEVICE WILL BE DROPPED FROM 

THE TEST CYCLE UNLESS THE JDU OPTION IS USED. 


ERROR #17 = DATA COMPARE ERROR: 


1f A DATA VALIDATION ERROR OCCURS DURING A WRITE/VERIFY COMMAND, 
THE PROGRAM PRINTS WHAT THE DATA SHOULD HAVE BEEN AND WHAT THE 
DATA WAS, AND PRINTS THE BYTE AND RECORD NUMBER THE ERROR OCCURRED 
ON. ONLY THE FIRST 10 BYTES IN ERROR PER RECORD ARE PRINTED. 

THE TOTAL # OF BYTES IN ERROR PER RECORD IS ALSO PRINTED. A 

HARD ERROR 1S LOGGED AND THE PROGRAM PROCEEDS NORMALLY. 


3.2 ERROR HALTS 


nero s om 


ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION 
WITH /FLAG:HOE. THERE ARE NO OTHER HALTS. 


SEQ 0021 


4.0 PERFORMANCE REPORT 


UNIT X  PASS:XXXXX RECORD: XXXXX 
BYTES WRITTEN XXX XXX XX, XXX 

BYTES READ REV XXX ,XXX, XXX, XXX 

BYTES READ FWD mrnicrrieag” ~ ems nok 


WRT 
RECOVERABLE ERRORS XXXXX XXXXX 
UNRECOVERABLE ERRORS XXXXX XXXXX 


SPEC COND HARD FATAL COMPARE 
MKXKXM MMMM MMKKK KKM 


5.0 TEST SUMMARIES 


5.1 


TEST 1 = BASIC FUNCTIONS. 


EXECUTES AND VERIFIES CORRECT COMPLETION OF ALL TSO04 FUNCTIONS. 


SET CHAR, DRIVE INIT, GET STATUS. 

SET CHARACTERISTIC 200. 

DRIVE INITIATE. 

SET “cre ‘aaamemiae 20. 

GET STATUS 

SET CHARACTERISTIC 40. 

PRINT TS04 MICROCODE LEVEL (PASS 1 ONLY) 


SUBTEST 1 


~+++44 


SUBTEST 2 = REWIND. 


+ REWIND 


RDF 
XXXXX 
XXXXX 


N . 
+ REWIND AT BOT. 
SUBTEST 3 = WAITE/VERIFY. 


+ WRITE/VERIFY PATTERN 1. 
+ WRITE/VERIFY PATTERN 2. 
+ WRITE/VERIFY PATTERN 35. 
+ WRITE/VERIFY PATTERN 4. 
+ WRITE/VERIFY PATTERN 5. 
+ WRITE/VERIFY PATTERN 6. 
+ WRITE/VERIFY PATTERN O. 
SUBTEST 4 = WRITE TAPE MARK, ERASE. 
+ WRITE TAPE MARK. 
+ WRITE 10 RECORDS 
+ ERASE 10 TIMES 
+ WRITE TAPE MARK. 
+ WRITE TAPE MARK RETRY. 
SUBTEST 5 = SPACE BAS ie 
E 2 FILES REVERSE. 
+ SPACE 2 FILES FORWARD. : 
+ SPACE 2 FILES REVERSE. 
+ SPACE 2 FILES FORWARD. 


SUBTEST 6 = SPACE RECORDS. 


SEQ 0022 


+ REWIND. , 

+ SPACE 7 RECORDS FORWARD. SEQ 0023 
+ SPACE 7 RECORDS REVERSE. 

+ 7 RECORDS FORWARD. 

+ SPACE 7 R 


ECORDS REVERSE. 
WRITE RETRY. 
+ REWIND 


+ WRITE DATA. 
+ WRITE RETRY. 


REV RETRY. 

+ READ REVERSE. 

+ READ NEXT REVERSE. 
+ READ NEXT FORWARD. 


FWD RETRY. : 
+ READ FORWARD. , 
+ READ PREVIOUS FORWARD. 
+ READ PREVIOUS REVERSE. 


SUBTEST 7 


SUBTEST 8 


t] 
zDD 
mm 
> 
oO 


SUBTEST 9 


' 
@ 
m 
> 
J 


SUBTEST 10 


' 
o 
rc 
m 
> 
2 
. 


+ REWIND. 


SUBTEST 11 = wa 4 pF SWAPPED DATA BYTES. 

+ WRITE/VERIFY EVEN LENGTH (RECORD 1). 
WRITE/VERIFY ODD LENGTH (RECORD 2). 

SET DATA BYTE SWAP. 

WRITE/VERIFY EVEN LENGTH (RECORD 3). 
WRITE/VERIFY ODD LENGTH (RECORD 4). 

CLEAR DATA BYTE SWAP. P 


SUBTEST 12 - Rene SWAPPED DATA BYTES. 
READ REV RECORD 4. 
READ REV RECORD 3. 
SET DATA BYTE SWAP. 
READ REV RECORD 2. 
READ REV RECORD 1. 
READ FWD RECORD 1. 
READ FWD RECORD 2. 
CLEAR DATA BYTE SWAP. 
READ FWD RECORD 3. 
READ FWD RECORD 4. 


“2-7-4 


~+-+++e4444 + 


 , 
5.2 TEST 2 - DATA RELIABILITY. 


1. THE TAPE IS INITIATED WITH THE FOLLOWING COMMANDS: 
—— 40 


REW 
WRITE/VERIFY 31 RECORDS OF RANDOM LENGTH AND DATA 
2. WRITE AND READ COMMANDS ARE SELECTED AT RANDOM AND ARE 
EXECUTED A RANDOM NUMBER OF TIMES WITH RANDOM 
iy AND RANDOM PATTERN UNTIL END OF TAPE IS REACHED. 


SEQ 0024 


3. on HE END OF EACH PASS, A REWIND COMMAND IS ISSUED AND 
A PERFORMANCE REPORT IS PRINTED. 
NOTE: A RESTART COMMAND IS USED TO INITIATE 
TEST 1, THE INITIAL REWIND COMMAND IS NOT ISSUED. 
5.3 TEST 5 = WRITE COMPATABILITY/WRITE UTILITY. 


REWINDS AND WRITES RECORDS OF RANDOM LENGTHS 
AND RANDOM DATA FROM BOT TO EOT. 


5.4 TEST 4 = READ COMPATABILITY/READ UTILITY. 
REWINDS AND READS ENTIRE TAPE, FORWARD AND REVERSE. 


5.5 TEST 5 = EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


THE SEQUENCE OF COMMANDS ENTERED BY THE OPERATOR 

1S EXECUTED. IF NO COMMANDS WERE ENTERED, A 

DEFAULT SEQUENCE OF REWIND/WRITE/READ REV/READ FWD/REWIND 
OF ENTIRE TAPE IS EXECUTED WITH RANDOM PATTERN 

AND RECORD LENGTH OF 2048 BYTES. 





6.0 DEVICE INFORMATION TABLES 
wannnnnnnn nnn n---en nn = =n= SEQ 0025 


THE TS04 TAPE SUBSYSTEM CONSISTS OF A TS11 UNIBUS TO SERIAL BUS 
CONTROLLER CONNECTED TO A 1504 DRIVE. FROM A SOFTWARE VIEWPOINT: 
ee ee 1S UNIQUE (FOR A UNIBUS DEVICE) IN A NUMBER 


> 
° 


ONLY ONE REGISTER MAY BE WRITTEN - TSDB (TAPE SYSTEM 
DATA BUFFER), 


TWO REGISTERS MAY BE READ - TSSR AND TSBA (TAPE SYSTEM STATUS 
REGISTER AND TAPE SYSTEM BUS ADDRESS REGISTER), 


COMMANDS ARE NOT WRITTEN TO THE DRIVE; RATHER, COMMAND 
POINTERS ARE WRITTEN WHICH POINT TO COMMAND PACKETS SOME- 
WHERE IN CPU MEMORY. THE COMMAND POINTER IS USED BY 

THE TSO4 SUBSYSTEM TO FETCH THE WORD(S) WITHIN THE COMMAND 
PACKET. THE WORDS WITHIN THE COMMAND PACKET ARE: 


1. COMMAND WORD 

2. LOW ORDER BUFFER ADDRESS 
3. HIGH ORDER BUFFER ADDRESS 
4. BYTE COUNT 


THE TSSR CONTAINS ALL THE INFORMATION WHICH WILL BE NEC- 
ESSARY TO DETERMINE WHETHER: 

1. THE ORIVE IS READY TO ACCEPT ANOTHER COMMAND, 

2. THE PREVIOUS COMMAND WAS EXECUTED WITHOUT ERROR. 
IF EITHER OF THE ABOVE CONDITIONS IS UNTRUE AT ‘JOB DONE"’ 
OR “‘COMMAND INITIATION’’ TIME,I1T MAY BE NECESSARY 
TO GET THE EXTENDED STATUS REGISTERS TO DETERMINE WHAT 
ACTION IS TO BE TAKEN AND/OR LOG THE ERROR INFORMATION. 


EXTENDED STATUS REGISTERS ARE NOT READ DIRECTLY FROM 
DRIVE REGISTERS; RATHER, A ‘'GET STATUS’ COMMAND 

1S ISSUED WHICH WILL CAUSE THE TSO4 TO TRANSFER EXTENDED 
STATUS INFORMATION TO THE MEMORY AREA POINTED TO BY THE 
BUFFER ADDRESS OF THE ‘’GET STATUS'’ COMMAND. THERE ARE FOUR 
EXTENDED STATUS REGISTERS. SEE 6.5. 


THE TSDB MUST BE WRITTEN WITH A DATO INSTRUCTION TO 
PROPERLY WRITE THE COMMAND POINTER. A DATOB WILL 

CAUSE A MAINTENANCE FUNCTION. A DATO TO THE TSSR WILL CAUSE 
SUBSYSTEM INIT. 


G. COMMAND PACKETS MUST RESIDE ON DIVIDE BY FOUR 
MEMORY BOUNDARIES (AS OPPOSED TO DIVIDE BY 2 OR WORD 
BOUNDARIES) . 


oO 
° 


mm 
° 


ns 
+ 





6.2 


UNIBUS INTERFACE SPECIFICATIONS 


SECOND 


THIRD 


FOURTH 


INT. 


160 


164 


772520 
772522 


772524 
772526 


772530 
772532 


772534 
772536 


REGISTER 
TSBA/TSDB 
TSSR 
TSBA/TSDB 
TSSR 
TSBA/TSOB 
TSSR 


TSBA/TSDB 
TSSR 


SEQ 0026 


6.5 


6.3.1 


BIT DEFINITIONS FOR 1S11/TS04 REGISTERS 


$ eee} coe} ooe 


. ‘PIGIPISIPI2! | 


Guseguaeboods 


fsteat a 
i} 


: peat eid eee 
] 


: *COR!CRS! 
' 


‘oat whe Sack 


i 19 Fate 


Py eet 


NXRENBA ‘a7! 
fowafpoces woes 


oe ee Pee 
‘weed teal tex 


08 Baad eS 


re ey 


$eeaf¢ocesoce 


toentone tonne 
HTLA!ROT ONL! 


: IPR SYN: 
i t 


!DRP: 


geactoce}coe 


IDTP{DT7:DT6! 
' 


pucetocctonnt 
'LMX!OPI! 
' ' 


TERMINATION CLASS CODES (TSSR TCO-TC2): 


NORMAL TERMINATION 
ATTENTION CONDITION 
TAPE STATUS ALERT 
FUNCTION REJECT 
RECOVERABLE ERROR - TAPE POSITION = ONE 
DOWN TAPE FROM START OF FUNCTION 
RECOVERABLE ERROR - TAPE NOT MOVED 


NOW Sw oO 


UNRECOVERABLE ERROR - TAPE POSITION LOST 


FATAL CONTROLLER ERROR 
CLASS CODES (TSSR FCO-FC1): 
MICRO DIAGNOSTIC FAILURE yb a IN TSO4 OPERATOR PANEL AND XST3). 


1/0 SEQUENCER CROM PARITY ERRO 
MICROPROCESSOR CROM PARITY ERROR. 


SILO PARITY ER 


05 = a 


gewefoca}cce 
geecefoco}oce 


doestocetoce 


ee et ere + 
-1E 'VCK PED! 


poentecetonns 
IPO! IED! POS! 
S TTASLCOINZN: 


poeetocetocce 


IDT5!0T4!DT3! 


Jowafous}eund 
'REVICRE!IDCK! 
' ' ' ' 


teeetooe}oea} 


RECORD 


ROR. 
SERIAL BUS PARITY ERROR DETECTED AT TS11 +8 tg 
SERIAL BUS PARITY ERROR DETECTED AT 1S04 (BPE 
FATAL ERROR HALTS 1750-1777 IN TS04 PROGRAM COUNTER DISPLAY. 
LOSS OF AC POWER HAS BEEN DETECTED. 


,02 = t.. 8 


ee et tt! 


P02 !P171P16: 


se iat 
' 


‘eed wee 
' ' 


pocctecesooes 
'POL!UNC!MTE! 
pend base Heo 5 


+ 
tDT2iDT1 !DTO! 


ee ee ae 


'NOI!LXS!RIB! 
Se Pe eer 


SEQ 0027 






TS11 STATUS REGISTER (TSSR) 


UNIBUS ADDRESS + 2 = READ ONLY 






od nel 09 08 or 06 | 05 04 05 02 ot 


tN NBA tai?! tATO!SSR!OFL! tFCTEFCOLTCR! TCH TC0! 


DEFINITION 


SPECIAL CONDITION. WHEN SET, INDICATES THAT 
THE LAST COMMAND DID NOT COMPLETE WITHOUT 
INCIDENT. SPECIFICALLY, EITHER AN ERROR WAS 
DETECTED OR AN EXCEPTION CONDITION OCCURRED. 
EXCEPTION CONDITIONS CAN BE TAPE MARKS ON READ 
COMMANDS, REVERSE MOTION AND AT BOT, EOT WHILE 
WRITING, ETC. MAY ALSO BE SET BY THE ERROR 
BITS CONTAINED IN THE TSSR REGISTER: UPE, 


SPE, 
RMR, AND NXM. THE TERMINATION CLASS BITS ARE SOME THING 
OTHER THAN 0 (UNLESS RMR IS THE ONLY ERROR - SEE RMR). 


UNIBUS PARITY ERROR. SET BY THE TS11 WHEN IT 
DETECTS A PARITY ERROR ON THE UNIBUS DATA WHEN 
TRANSFERRING TO OR FROM THE CPU'S MEMORY. 


SERIAL BUS PARITY ERROR. THIS BIT IS SET BY 
THE TS11 WHEN IT DETECTS A SERIAL BUS PARITY 
ERROR ON DATA RECEIVED FROM THE TS04. 


REGISTER MODIFICATION REFUSED. SET BY THE TS11 
WHEN A COMMAND POINTER IS LOADED INTO TSDB AND 
SUB-SYSTEM READY (SSR) 1S NOT SET. NOTE THAT 


THIS BIT CAUSES SPECIAL CONDITION BUT NO TERMINATION 


CLASS (IN FACT, THE TSC4 NEVER SEES THIS ERROR) 

BECAUSE ON A SYSTEM WITH NO BUGS, THIS BIT MAY 
COME UP ON AN ATTENTION MESSAGE. IF ATITNS ARE 

NOT ENABLED, THIS BIT COMING UP IS AN INDICATION 

en A FATAL CONTROLLER ERROR OR A SOFTWARE 
UG. 


NON-EXISTENT MEMORY. SET BY THE TS11_ WHEN 
TRYING TO TRANSFER TO OR FROM A MEMORY LOCATION 
WHICH DOES NOT EXIST. MAY OCCUR WHEN FETCHING 
THE COMMAND PACKET, FETCHING OR STORING DATA, 
OR STORING THE MESSAGE PACKET. 


NEED BUFFER ADDRESS. WHEN SET, INDICATES THAT 
THE 1SO04 NEEDS A MESSAGE BUFFER ADDRESS. THIS 
BIT IS CLEARED DURING THE SET CHARACTERISTICS 
COMMAND (IF A GOOD ADDRESS WAS GIVEN). 


BUS ADDRESS BIT 17. A17 AND Al6 (BIT 08) TRACK 






























08 Al6 $ 
07 =SSR Ss 


06 OFL S,1,3 


0S FCI 7 
04 FCO ? 
03 C2 S 
02. C1 S 
01 TCO S 
00 ° - 


SUBSYSTEM INITIALIZE 





dD 3 
17 AND 16 OF THE TSBA 





THE VALUES OF 
REGISTER. 





BITS 


BUS ADDRESS BIT 16. SEE Al7 (BIT 09). 


SUB-SYSTEM READY. WHEN SET, INDICATES THAT THE 
TS11/TS04 SUBSYSTEM 1S NOT BUSY AND IS READY TO 
ACCEPT A NEW COMMAND POINTER. 


OFF-LINE. WHEN SET, INDICATES THAT THE TS04 IS 
OFF-LINE AND UNAVAILABLE FOR ANY TAPE MOTION 


COMMANDS. THIS BIT CAN CAUSE A TERMINATION CLASS 


OF 1 (ON ATIN INTERRUPT) OR 35 (RESULTS IN NEF). 


FATAL TERMINATION CLASS 01. FC1 AND FCO (BIT 
04) ARE USED TO INDICATE THE TYPE OF FATAL 
ERROR WHICH HAS OCCURRED ON THE 1804. THESE 
BITS ARE VALID ONLY WHEN SC IS SET AND THE 
TERMINATION CLASS CODE BITS ARE ALL SET (111). 


FATAL TERMINATION CLASS 00. SEE FCI (BIT 05). 


TERMINATION CLASS BIT 02. THIS BIT, ALONG WITH 
THE TC1 AND TCO BITS, ACT AS AN OFFSET VALUE 
WHENEVER AN ERROR OR EXCEPTION CONDITION OCCURS 
ON A COMMAND. EACH OF THE EIGHT POSSIBLE 
VALUES OF THIS FIELD REPRESENT A_ PARTICULAR 
CLASS OF ERRORS OR EXCEPTIONS. THE CONDITIONS 
IN EACH CLASS HAVE SIMILAR SIGNIFICANCE AND, AS 
APPLICABLE, RECOVERY PROCEDURES. THE CODE 
PROVIDED IN THIS FIELD IS EXPECTED TO BE 
UTILIZED AS AN OFFSET INTO A DISPATCH TABLE FOR 
HANDLING OF THE CONDITION. 


TERMINATION CLASS BIT 01. SEE TC2 (BIT 03). 
TERMINATION CLASS BIT 00. SEE TC2 (BIT 03). 
NOT USED. 


UNIBUS ADDRESS + 2 = WRITE ONLY 








SEQ 0029 





6.3.5 


EXTENDED STATUS REGISTER 0 (XSTATO) 


15 13 
town} teeefsoeeteoce= 
‘TAK! PRLS !LET!RUL! 
' ' ' ' ! 
faned soeseoues 
BIT NAME TCC 
15 TMK $.2 
14 RLS 2 
13 LET 2 
12 RLL 2 
11 =WLeE 3.6 
10 ~—sNEF 3 


eine 0 7 08 oF 06. 05. “ 05. 02 o1 


tWLENEF H7LC! FIUAEROT ONC HE VCR PED! {WUE BOT E07: 
' 


TAPE MARK DETECTED. SET WHENEVER A TAPE MARK 
WAS DETECTED DURING A_ READ, SPACE, OR SKIP 
COMMAND AND AS A RESULT OF THE WRITE TAPE MARK 
OR WITE TAPE MARK RETRY COMMANDS. 


RECORD LENGTH SHORT. THIS BIT INDICATES THAT 
EITHER THE RECORD'S LENGTH WAS SHORTER THAN THE 
BYTE COUNT ON READ OPERATIONS, A SPACE RECORD 
OPERATION ENCOUNTERED A TAPE MARK OR BOT BEFORE 
THE POSITION COUNT WAS EXHAUSTED, OR A_ SKIP 
TAPE MARKS COMMAND WAS TERMINATED’ BY 
ENCOUNTERING BOT OR A DOUBLE TAPE MARK (IF THAT 
OPERATIONAL MODE IS ENABLED, SEE LET) PRIOR TO 
EXHAUSTING THE POSITION COUNTER. 


LOGICAL END OF TAPE. SET ONLY ON THE SKIP TAPE 
MARKS COMMAND WHEN EITHER TWO CONTIGUOUS TAPE 
MARKS ARE DETECTED OR WHEN MOVING OFF OF BOT 
AND THE FIRST RECORD ENCOUNTERED IS A TAPE 
MARK. THE SETTING OF THIS BIT WILL NOT OCCUR 
UNLESS THIS MODE OF TERMINATION IS ENABLED 
THROUGH USE OF THE SET CHARACTERISTICS COMMAND. 


RECORD LENGTH LONG. WHEN SET, THIS BIT” 


INDICATES THAT THE RECORD READ WAS LONGER THAN 
THE BYTE COUNT SPECIFIED. 


WRITE LOCK ERROR. WHEN SET, INDICATES THAT A 
WRITE OPERATION WAS ISSUED BUT THE MOUNTED TAPE 
DID NOT CONTAIN A WRITE ENABLE RING OR THE WRT 
LOCK SWITCH ACTIVATED DURING THE OPERATION. 


NON-EXECUTABLE FUNCTION. WHEN SET, INDICATES 
THAT THE COMMAND COULD NOT BE EXECUTED DUE TO 
ONE OF THE FOLLOWING CONDITIONS: 


- THE COMMAND at > tee REVERSE TAPE 
DIRECTION BUT THE APE WAS ALREADY 
POSITIONED AT BOT 

- THE ISSUING OF ANY COMMAND, EXCEPT REWIND, 


SEQ 0030 


09 


08 


07 
06 


05 


04 


03 


02 


01 


00 


ILC 


ILA 


vCK 


PED 


WLK 


BOT 


EOT 


$.3 


$.3 


$.2 


a. 


UNLOAD, OR A COMMAND WITH THE CLEAR VOLUME 
atts set. BIT SET, WHEN THE VOLUME CHECK 


- ANY COMMAND, EXCEPT GET STATUS OR DRIVE 
INITIALIZE, WHEN THE TS04 IS OFF-LINE. 

- ANY WRITE COMMAND WHEN THE TAPE DOES NOT 
CONTAIN A WRITE ENABLE RING (WRITE LOCK 
STATUS = WLS). 


ILLEGAL COMMAND. SET WHEN A COMMAND IS ISSUED 
AND EITHER ITS COMMAND FIELD OR ITS COMMAND 
MODE FIELD CONTAINS CODES WHICH ARE NOT 
SUPPORTED BY THE TS04. 


ILLEGAL ADDRESS. (MORE THAN 18 BITS OR ODD WHEN 
AN EVEN ADDRESS IS REQUIRED.) 


TAPE 1S MOVING. 


ON LINE. WHEN SET, INDICATES THAT THE 1TS04 IS 
ON-LINE AND OPERABLE. 


INTERRUPT ENABLE. REFLECTS THE STATE OF THE 
INTERRUPT ENABLE BIT SUPPLIED ON THE LAST 
COMMAND. 


VOLUME CHECK. WHEN SET, INDICATES THAT THE 
DRIVE HAS BEEN EITHER POWERED DOWN OR TURNED 
OFF-LINE. CLEARED BY THE CLEAR VOLUME CHECK 
(CvC) BIT IN THE COMMAND HEADER WORD. THIS BIT 
CAN CAUSE A TERMINATION CLASS OF 3. 


PHASE ENCODED DRIVE. WHEN SET, INDICATES THAT 
THE TSO04 1S CAPABLE OF READING AND WRITING ONLY 
1600 BPI PHASE ENCODED DATA. WHEN RESET, 
INDICATES THAT THE TSO4 HAS ONLY 800 BPI NRZI 
DATA CAPABILITIES. 


WRITE LOCKED. WHEN SET, INDICATES THAT THE 
MOUNTED REEL OF TAPE DOES NOT HAVE A 
WRITE-ENABLE RING INSTALLED. THE TAPE IS, 
THEREFORE, WRITE PROTECTED. 


BEGINNING OF TAPE. WHEN SET, INDICATES THAT 
THE TAPE IS POSITIONED AT THE LOAD POINT AS 
— BY THE BOT REFLECTIVE STRIP ON THE 


END OF TAPE. THIS BIT IS SET WHENEVER THE TAPE 
1S POSITIONED AT OR BEYOND THE END OF TAPE 
REFLECTIVE STRIP. DOES NOT RESET UNTIL THE 
TAPE PASSES OVER THE REFLECTIVE STRIP IN THE 
REVERSE DIRECTION UNDER PROGRAM CONTROL. 


SEQ 0031 


SEQ 0032 


6.3.4 hms STATUS REGISTER 1 (XSTAT1) 


15 7 3 te , 0 09 08 oll 06 05 oe 05 02 " 00 
+ . 


tennt tenntenntene temntennten- + tematewntennt temntewntonnt tonntonntene + 
‘PLT 7 "COR!CRS! ‘TIG!DBF !SCK! : VTPR!SYN! '1PO!1ED' POS! 'POL'UNC ITE | 
: ; 4 : : : NZO! ; 3 : — 'TTM!LCO!NZN! LE CREW 
deans secesecatoces Joccteccteces Jecctocctoce 4 Femetewntennt toontenntene * 

BIT NAME TCC DEFINITION 

ro Oe G DATA LATE. SET WHEN THE 1/0 SILO IS FULL ON A 


READ OR EMPTY ON A WRITE. THESE CONDITIONS 
OCCUR WHENEVER THE UNIBUS LATENCY EXCEEDS THE 
DATA TRANSFER RATE OF THE TS04. 


14 = saad NOT USED. 

13. COR S$ CORRECTABLE DATA. IN PHASE ENCODED MODE, A 
CORRECTABLE DATA ERROR HAS BEEN ENCOUNTERED. 

12 CRS 4 CREASE DETECTED. FOR NRZI, ALL DATA TRACKS 


DROPPED OUT FOR MORE THAN THREE CHARACTER TIMES 
BUT FOR LESS THAN .1 INCHES OF TAPE. FOR PE, 
EIGHT OUT OF NINE DATA TRACKS WENT DEAD FOR 
LESS THAN .1 INCHES BEFORE A VALID POSTAMBLE 
WAS DETECTED. 


11 T1G & TRASH IN THE GAP. NON-ERASED DATA WAS DETECTED 
IN A GAP DURING A READ, WRITE, WRITE TAPE MARK, 
OR ERASE COMMAND. 


10 DBF & DESKEW BUFFER FAIL. ONE OF [HE DESKEW BUFFERS FAILED 
TO ASSERT “OUTPUT READY'’ WITHIN 20 MICROSECONDS 
AFTER BEING ENABLED. THE DEAD TRACK BITS WILL 
INDICATE ON WHICH TRACKS THIS FAILURE OCCURRED. 
TH!S ERROR 1S PROBABLY A RESULT OF A BROKEN FOR- 


MATTER 
NZO 4 NRZ FIFO OVERRUN. 
09 = =SCK & SPEED CHECK. TAPE SPEED WAS OFF BY MORE THAN 


5% DURING A WRITE DATA OPERATION. NOTE THAT SPEED 
AVERAGED OVER 8 TICKS AND THE AVERAGE MUST BE OFF 
5% TO CAUSE THIS ERROR. 


08 - ss NOT USED. 


07 =IPR $4 INVALID PREAMBLE. SET ON A PE DRIVE If THE 
PREAMBLE APPEARS 10 BE SHORTER THAN 56 
CHARACTERS OR LONGER THAN 44 CHARACTERS. ALSO 
SET IF THE PREAMBLE IS INCORRECTLY ENCODED 
BEYOND THE FIFTEENTH CHARACTER IN READ OR THE 
TENTH CHARCTER IN READ-~AFTER-WRITE. 


06 


05 


04 


03 


02 


01 


00 


SYN 


DRP 


1P0 


11M 


1ED 


LRO 


POS 


NZN 
POL 


LRC 


UNC 


CRC 


MTE 


vPE 


H 3 
SYNCH FAILURE. SE] ON A PE ORIVE IF THE 
FORMATTER WAS UNABLE 10 ACHIEVE SYNCHRONIZATION 
IN THE PREAMBLE. 


NRZ RECORD DROPPED A CHARACTER (THE NEXT CHARACTER 
WAS TO BE CONSIDERED CRC). 


INVALID POSTAMBLE. SET ON A PE DRIVE DURING 
READ OR WRITE IF ANY OF THE FIRST 39 CHARACTERS 
OF THE POSTAMBLE ARE NOT READ CORRECTLY. 
ILLEGAL TAPE MARK FOR NRZ. 


INVALID END DATA. FOR PE, EIGHT OUT OF NINE 


TRACKS WENT DEAD BEFORE THE POSTAMBLE WAS DETECTED. 


FOR NRZ1, DATA WAS NOT DETECTED IN EITHER THE 
LRCC OR CRCC WINDOWS. (LRC WAS ZERO) 


POSTAMBLE SHORT. SET ON PE DRIVES DURING A 
READ OR WRITE WHEN LESS THAN 38 ALL-ZEROES 
CHARACTERS ARE READ FOLLOWING THE ALL-ONES 
CHARACTER. 


NRZ NOISE RECORD (FEWER THAN 13(10) FRAMES). 


POSTAMBLE LONG. SET ON PE DRIVES DURING READ 
OR WRITE OPERATIONS WHEN THE POSTAMBLE EXCEEDS 
42 CHARACTERS. 


LRC ERROR. SET ON NRZ] DRIVES WHEN THE LRCC 
CHARACTER WAS FOUND IN ERROR. 


UNCORRECTABLE DATA. SET ON PE DRIVES WHEN A 
PARITY ERROR OCCURRED WITHOUT A CORRESPONDING 
DEAD TRACK INDICATION. 


CRC ERROR. SET ON NRZ] DRIVES WHEN THE CRC 
CHARACTER WAS FOUND TO BE IN ERROR. 


MULTI-TRACK ERROR. SET ON PE DRIVES WHEN MORE 
THAN ONE DEAD TRACK OCCURRED IN THE PREAMBLE OR 
IN THE DATA FIELD. 


VERTICAL PARITY ERROR. SET ON NRZ] DRIVES WHEN 
A CHARACTER DID NOT CONTAIN AN ODD NUMBER OF 
ONE BITS. 


SEQ 0033 


EXTENDED STATUS REGISTER 2 (XSTAT2) 
eneageenusccusausccoseesseceesescce SEQ 0034 


15 14. SS 3m 


town} Feoeet}oea Gowen} 4Feoee4}ooef{eoca ¢ ¢4eee4eeoe}cees4 4eeet}oscet}oean4} Feoeetf{oeet}qoscea 


11 10 09 08 or 06 | 03. 04 05 02 | al 00 


‘OPM! SIP LBPE !CAF ‘WCF! ! IDTP{DT?!DT6! 1015 !DT4!DT3! ‘Dia! p11 !D70! 
‘ ' ‘ . 8 ' i ' ! , ¥ ' ' ' 

bennd domed ened enn deeedemetoent Hemetemntewns Feenteweteent Henntenntenes 
NAME TCC DEFINITION 
OPM SS OPERATION IN PROGRESS. (TAPE MOVING) 


SIP 7,F2 SILO PARITY ERROR. CAUSES FATAL CLASS 2 BECAUSE THE 
ERROR MIGHT HAVE OCCURRED DURING THE TRANSMISSION OF THE 


13 


12 


10 


09 
08 


MESSAGE PACKET. 


BPE 7,F2 SERIAL BUS PARITY ERROR AT DRIVE. SET BY THE 
TSO4 WHEN A PARITY ERROR IS DETECTED ON DATA 
TRANSMITTED FROM THE TS11 TO THE TSO04. CAUSES FATAL 
CLASS 2 BECAUSE THE ERROR MIGHT HAVE OCCURRED DURING 
THE TRANSMISSION OF THE MESSAGE PACKET. 

CAF 7 CAPSTAN ACCELERATION FAIL. AFTER ACCELERATING 
TAPE FOR .2 INCHES, THE TAPE SPEED WAS CHECKED 
4 ,. By £ €£ Sf. gE ee rh ek, 

° NOT USED. 

WCF 7 THE WRITE BOARD 1S NOT EMPTYING THE 1/0 SILO AT 
THE PROPER RATE. THIS ERROR CAN BE THE RESULT OF 
THE WRITE BOARD CLOCK NOT BEING TURNED ON (BROKEN 
HARDWARE). 

- - NOT USED. 

DIP $ DEAD TRACK PARITY. THE BITS DTP THROUGH DTO 
INDICATE WHICH TRACK(S) WENT DEAD, IF ANY, 
DURING THE LAST DATA TRANSFER OPERATION. If 
DESKEW BUFFER FAIL (DBF) IS SET, THESE BITS 
INDICATE WHICH CHANNEL FAILED. 

D17 Ss DEAD TRACK 7. SEE DTP. 

DT6 $ DEAD TRACK 6. SEE DIP. 

D15 s DEAD TRACK 5. SEE DTP. 

D4 s DEAD TRACK 4. SEE DTP. 

D13 S DEAD TRACK 3. SEE DIP. 

DI2 S DEAD TRACK 2, SEE DIP. 

DT S DEAD TRACK 1. SEE DTP. 





00 
NOTE: 


d10 $s DEAD TRACK 0. SEE DIP. 


ON A SET CHARACTERISTICS COMMAND, THE UCODE LEVEL IS RETURNED 
IN DT7 THRU OT0. ON A GET STATUS COMMAND, THE RESIDUAL CAPSTAN 
TICK COUNT (INTERNALLY R7) IS RETURNED IN DT7 THRU DT0. 


SEQ 0035 


6.3.6 EXTENDED STATUS REGISTER 3 (XSTAT3) 


15 asl 13 12 y. 10 09 08 ie 06 | 05 ol 05 02 ot 00 
+ 
MICRO DIAGNOSTIC. ERROR CODE tLMKOPI! REV CRF 0CK! {NOI !UXS R18! 


BIT NAME TCC DEFINITION 


15 10 08 MICRO DIAGNOSTIC ERROR CODE. (SEE LIST OF CODES BELOW). 
ALL ERROR CODES IN THE TABLE WILL BE DISPLAYED ON 
THE TSO4 CONTROL PANEL BUT ONLY CODES HIGHER THAN 
110 WILL BE AVAILABLE TO CPU DIAGNOSTICS FOR PRINTOUT 
IN THE MICRO DIAGNOSTIC ERROR CODE FIELD OF XSTATS. : 
THIS ERROR CODE FIELD 1S VALID ONLY WHEN THE { 
TERMINATION CLASS CODE IN THE TSSR EQUALS 7 AND THE 
FATAL CLASS CODE IN THE TSSR EQUALS 0, INDICATING 
AN INTERNAL DIAGNOSTIC FAILURE. 


O07) NTL 6 LIMIT EXCEEDED. SET WHEN THE TAPE TENSION ARMS 
HAVE EXCEEDED THEIR ALLOWABLE TRAVEL AND HAVE * 
CAUSED THE ACTIVITATION OF THE LIMIT SWITCHES. 
. NO TENSION EXISTS ON THE MOUNTED TAPE. 


06 = OPI 6 OPERATION INCOMPLETE. SET WHEN A READ, SPACE, 
OR SKIP JOPERATION HAS MOVED °. FEET OF TAPE 
WITHOUT DETECTING ANY DATA ON THE TAPE. 


05 REV Ss fig et a OF CURRENT OPERATION WAS REVERSE (BUT 
0 IF REWIND OR FORWARD) 
04 = CRF 7 CAPSTAN RESPONSE FAILURE. A MOTION COMMAND WAS 


GIVEN TO THE CAPSTAN BUT WE DID NOT GET A TICK 
BACK WITHIN A REASONABLE AMOUNT OF TIME. 


03 DOCK $.6 DENSITY CHECK. SET ON PE DRIVES WHEN A PE 
IDENTIFICATION BURST WAS NOT DETECTED WHEN 
MOVING OFF OF BOT. SET ON NRZI DRIVES WHEN A 
NON-NRZ1 IDENTIFICATION BURST WAS FOUND WHEN 
MOVING OFF OF BOT. 


02 NOI 6 NOISE RECORD. SET DURING A READ OR SPACE 
OPERATION WHEN A BURST OF FLUX CHANGES, WHICH 
DO NOT QUALIFY AS A RECORD (BUT TOO MANY TO 
IGNORE), ARE DETECTED: 


NRZ1: AT LEAST TWO CHARACTERS IN A ROW BUT 
LESS THAN TWELVE, FOLLOWED BY A CHARACTER IN 
EITHER THE CRCC OR LRCC WINDOWS. 


, PE: AT LEAST 24 CHARACTERS IN A ROW THAT DO 
NOT QUALIFY AS A TAPE MARK OR A DATA 
PREAMBLE. . 





RR. 
O01 =LXS s aa EXCEEDED STATICALLY. THIS BIT IS SET ANY 
TIME THE LIMiT SWITCHES ARE EXCEEDED. THIS BIT 

CAN ONLY BE CLEARED BY MANUALLY LOADING THE TAPE. 
00 RIB 2 REVERSE INTO BOT. A READ, SPACE, OR SKIP 


COMMAND ALREADY IN PROGRESS HAS ENCOUNTERED THE 
BOT MARKER WHEN MOVING TAPE IN THE REVERSE 
DIRECTION. TAPE MOTION WILL BE HALTED AT BOT. 


MICRO DIAGNOSTIC ERROR CODES 


FOLLOWING IS A LIST OF THE ERRORS WHICH ARE DISPLAYED IN THE MICRO 
DIAGNOSTIC ERROR CODE (XSTAT3 BITS 15 = 08) AND ALSO IN THE LIGHTS ON THE 
TSO4 CONTROL PANEL, DUE TO FAILURES ON THE CAPSTAN BOARD, 1/0 BOARDS, 
WRITE BOARD, READ BOARD, OR FORMATTER BOARD. THE MICRO WILL BE IN A 
TIGHT LOOP IN THE DISPM PROGRAM, WAITING FOR OPERATOR OR CPU 
INTERVENTION WHILE THE ERROR IS BEING DISPLAYED IN THE CONSOLE 
LIGHTS. 17 1S APPARENT THAT AN ERROR 1S BEING DISPLAYED IF THE ‘UOK*’ 
LIGHT IS NOT LIGHTED, THE PROCESSOR IS NOT STOPPED, AND AN OCTAL 
NUMBER (100-377) 1S BEING DISPLAYED IN THE LIGHTS. TO SCOPE LOOP 
THESE TESTS, ENTER MAINTENANCE MODE (ON-LINE SWITCH TO “OFF” 
POSITION, MAINTENANCE SWITCH UP, PRESS RESET), ENTER THE OFF-LINE 
TEST NUMBER (SEE SCOPE LOOP COLUMN BELOW) IN THE OPERATOR CONSOLE 
LIGHTS (ENTER ONES WITH LEFT-MOST SWITCH, ENTER ZEROES WITH 
RIGHT-MOST SWITCH), AND PRESS ON-LINE BUTTON. TEST WILL LOOP UNTIL 
ON-LINE SWITCH IS RETURNED TO OFF-LINE POSITION, ERRORS WILL BE 
DISPLAYED CONTINUOUSLY. 


ERROR PROGRAM ERROR DESCRIPTION LIKELY SCOPE 
(DISPLAY) MODULE LOOP 


337 OPERATIONAL CAPSTAN RUNAWAY ERROR (H3.RNY). CAPSTAN DION'T 
CODE STOP WITHIN ACCEPTABLE WINDOW AFTER LAST COMMAND. 


100 10TSM BASIC 1/0 MICRO FAILURE (PARITY M8967 =—_14 
ERROR, 1OATN, HANDSHAKING, AND 
DATA WINDOW TEST BETWEEN THE 1/0 
AND MAIN MICROS. 


NOTE: CAN ALSO BE CAUSED BY THE 
SERIAL BUS .SHIN (SHIFT IN) 
STUCK ASSERTED. 


101 10TSM ERROR IN 1/0 CONTROL REGISTER TEST M8966 = 15 
M8967 

102 1OTSM FAILURE OF FRAME COUNTER TEST M8966 = 15 

103 1O1TSM FAILURE OF 1/0 SILO NON-PARITY ERROR M8966 =—-:16 
DATA TEST OR THE WRITE FLAG. M8963 

104 101SM FAILURE OF 1/0 SILO PARITY ERROR M8966 17 


TEST OR DATA LATE TEST. 


SEQ 0037 


111 


112 


113 


114 


115 


116 


117 


120 


121- 


124 


125 


126 


1OTSM 
1OTSA 
101TSM 
10TSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


CATSM 


PETSM 


PETSM 


PETSM 


PETSM 


PETSM 


FAILURE OF SHIFT LOOP WITH ZEROES. 
FAILURE OF SHIFT LOOP WITH ONES. 
FAILURE OF SHIFT LENGTH MUX. 


FAILURE TO RECEIVE CORRECT OP-CODE 
FROM TS11 WHEN WE SENT DATA OVER 
THE SERIAL BUS. 


FAILURE OF 1 KHZ CLOCK TEST. 
TSTS TAC SYNC FLOP AND ATTN, TOO. 


LIGHT REGISTER CHANGED WHEN MOTION 
REGISTER WAS CLEARED. 


FWD OR MVG BITS WRONG AFTER 1 TICK 
OF SIMULATED COMMAND AND TACH PULSES. 


FAILURE OF SIMULATED CAPSTAN 
SPEED TEST. THE CAPSTAN SPEED 
COUNTER WAS OUT OF RANGE WHEN 
TAPE MOTION AT SPEED WAS 
SIMULATED. 


FAILURE OF SIMULATED SLOW CAPSTAN 
TEST. SPEED COUNTER DID NOT LATCH 
UP WITH MAX COUNT WHEN SLOW TACH 
TICKS WERE SIMULATED. 


FAILURE OF SIMULATED CAPSTAN DECEL 
TEST. COUNTER NOT ZERO FOR FORWARD 

OR 377 FOR REVERSE WHILE DECELERATING, 
OR MVG BIT NOT 1. 


FAILURE OF MOVING FLOP TO GO TO ZERO 
AFTER STOPPING (DIRECTION REVERSAL 
FOR ONE TACH TICK). 


FAILURE OF WRITE BOARD TO TURN ON 
AND EMPTY THE SILO, OR DATA LATE 
BIT DOESN'T WORK. 


FAILURE OF WRITE BOARD TO EMPTY 
SILO AT CORRECT SPEED. 


FORMATTER FLAG DOESN*T WORK ON THE 
M892 


FORMATTER SILO FILLING AND DATA 
ERROR 


PEAK SHIFT TEST ERROR 


a 3 
M8965 = 20 
M8965 92! 
M8965 922 
M8965 47 
1$11 
MOTHER BD 
SBUS CABLE 
6159 2 
CBUS CABLE 
M8963 
6159 3,4 
6159 3,4 
6159 3,4 
6159 3,4 
6159 3,4 
6159 3,4 
M8929 =. 23 
M8966 
M8929 = 23 
M8922 94 
M8922 04 
M8925 
M8924 
M8922 025 
M8925 


SEQ 0038 


127 


PETSA 


FORMATTER TABLE LOOKUP ROM CHECKSUM 
TEST ERROR 


N 3 
M8922 49.6 
M8923 
M8924 


SEQ 0039 
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PROGRAM HEADER 
DISPATCH TABLE 
DESCRIPTIVE TEXT 
DEFAULT HARDWARE P-TABLE 
SOFTWARE P-TABLE 
GLOBAL EQUATES SECTION 
GLOBAL DATA SECTION 
GLUBAL TEXT SECTION 
GLOBAL ERROR REPORT SECTION 
GLOBAL SUBROUTINES SECTION 
REPORT CODING SECTION 
LOAD DEVICE st ae TABLE 
INITIALIZE SECTION 
AUTO DROP SECTION 
CLEANUP CODING SECTION 
DROP UNIT SECTION 
$4 UNIT SECTION 

1: BASIC FUNCTIONS. 
2: DATA RELIABILITY. 
TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 
3.4 ¢: READ COMPATABILITY/READ UTILITY. 


HARDWARE PARAMETER CODING SECTION 
SOFTWARE PARAMETER CODING SECTION 
HARD CODED P-TBL 


: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 


SEQ 0040 
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22 


002000 


002000 


002000 


002044 
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002000 


060 
000001 
005000 
022616 
022670 
002174 
002202 
024236 
000000 
000000 
000001 
000000 
002124 
000540 
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TLE PROGRAM HEADER AND TABLES 


1 
~SBTTL 


504 


PROGRAM HEADER 
~-ENABL ABS,AMA 
= 2000 
BGNMOD 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


LSNAME:: 


LSREV:: 


LSDEPO:: 
LSUNIT:: 
LSTIML:: 
LSHPCP:: 
LSSPCP:: 
LSHPTP: : 
LSSPTP:: 
LSLADP: : 


LSSTA:: 
L$CO:: 


LSDTYP:: 


LSAPT:: 
LSDTP:: 


LSPRIO:: 
LSEXP1:: 


POINTER BGNRPT ,BGNSW,BGNSF 1 ,BGNAU,BGNDU,BGNSETUP 


HEADER (CZTSH,B,0,5000,1,#INTPRI 
DIAGNOSTIC NAME 


REVISION LEVEL 

30 

;NUMBER OF UNITS 

;LONGEST TEST TIME 
;POINTER TO H.W. QUES. 
;POINTER TO S.W. QUES. 
PTR. TO DEF. H.W. PTABLE 
PTR. TO S.W. PTABLE 
;DIAG. END ADDRESS 
RESERVED FOR APT STATS 


DIAGNOSTIC TYPE 

;APT EXPANSION 

;PTR. TO DISPATCH TABLE 
DIAGNOSTIC RUN PRIORITY 
EXPANSION WORDS 





TSPTHV 
5000 
LSHARD 
LSSOFT 
LSHW 
L$SwW 
LSLAST 
0 

0 

1 

0 
LSDISPATCH 
#INTPRI 


CZ1SHB.P11 


00204 


002120 
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000000 
000000 


003 
002 


000000 
000000 


000000 
002164 


2 
. 014126 


000000 
000000 
017314 
017242 
000000 
002136 
104035 
000000 
015260 
017172 
016550 
015252 
000000, 
000000 
000000 


LSEXP2:: 
LSMREV:: 


LSEF:: 


LSSPC:: 
LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS:: 
LSAUT:: 
L$DUT:: 
LSLUN: : 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
LSACP:: 
LSPRT:: 
LSTEST:: 
LSDLY:: 
LSHIME : : 


—E 4 
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PROGRAM HEADER 


;SvC REV AND EDIT # 


DIAG. EVENT FLAGS 


; POINTER TO DEVICE TYPE LIS? 


;PTR. 


sPIR. 
sPTR. 


TO REPORT CODE 


TO ADD UNIT CODE 
TO DROP UNIT CODE 


; LUN FOR EXERCISERS TO FILL 

; POINTER TO DIAG. DESCRIPTION 
;GENERATE SPECIAL AUTOLOAD EMT 
;POINTER TO ERRTBL 


;PTR. 
;PIR. 
;PTR. 
;PTR. 
; TEST 


TO INIT CODE 

TO CLEAN-UP CODE 
TO AUTO CODE 

TO PROTECT TABLE 
NUMBER - 


;DELAY COUNT 
;PTR. TO HIGH MEM 


- WORD 
. WORD 


-BYTE 
-BYTE 


« WORD 
. WORD 


«WORD 
. WORD 
. WORD 
- WORD 
. WORD 
« WORD 
. WORD 
«WORD 
. WORD 
EMT 

«WORD 
. WORD 
. WORD 
- WORD 
- WORD 
«WORD 
- WORD 
. WORD 


CSREVISION 
CSEDIT 


0 
0 


0 
LSDvTYP 
LSRPT 

0 

0 

LSAU 
L$DU 

0 
LSDESC 
ESLOAD 
0 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 
0 

0 

0 
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CZ1SHB.P11 24-AUG-79 09:08 SPATCH TABLE SEQ 0044 
104 ~SBTTL DISPATCH TABLE 
105 
106 


i i 
>; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; 11 1S USED BY THE SUPERV!SOR TO DISPATCH TO EACH TEST. 


002122 DISPATCH 5 


002122 000005 «WORD 5 

002124 LSDISPATCH:: 

002124 017410 -WORD T1 
002126 020776 «WORD 12 
002130 021454 «WORD 13 
002132 021622 «WORD 14 
002134 021754 ~WORD 15 


~SBTTL DESCRIPTIVE TEXT 


-4+¢ 


32 LINES OF TEXT PRINTED TO THE OPERATOR TO IDENTIFY THE DIAGNOSTIC AND THE DEVICE UNDER 


002136 DESCRIPT <DATA RELIABILITY TEST> 

002136 LSDESC:: 

002136 040504 040524 051040 -ASCIZ /DATA RELIABILIT 
002144 046105 040511 044502 

002152 044514 054524 052040 

002160 051505 000124 


002164 DEvTYP <1$11> 

002164 LSDVTYP:: 

002164 051524 030461 — Ei Po eASCIZ /TSIV/ 
002172 EVEN 


-EVEN 


ViFWNM—OOONG VFWN—OOOneUSWH—O0OmON 


Ww 


ee ee Se ee eee eee Le LL 
= POPE PV POP NNN I os os st os os Ss es Ss = | OOO 


wa 
~N 


C21 


SHB .P 
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002172 
HG 000002 


002174 
002174 172522 
002176 000224 


002200 
002200 


G 
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DEFAULT HARDWARE P-TABLE 


-SBTTL DEFAULT HARDWARE P-TABLE 


5e9 

> THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 


BGNHW DFPTBL 


LS$HW:: 

DFPTBL:: 

172522 sTSSR ADDRESS. 

224 sVECTOR ADDRESS. 
ENDHW 

L10000: 


. WORD 





SEQ 0045 


L10000-L $HW/2 
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CZ1SHB.P11 24-AUG-79 09:08 SOFTWARE P-TABLE SEQ 0046 
157 -SBTTL SOFTWARE P-TABLE 
158 
159 p44 
160 ; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
16) ; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 
163 
164 002200 - BGNSW SFPTBL 
165 002200 000043 «WORD 110001-L$Sw/2 
166 002202 L$Sw:: 
pe 002202 SFPTBL:: 
169 002202 001 CLRFLG:: .BYTE 1 ;CLEAR COUNTERS FLAG. 
170 002203 000 RRANV:: .BYTE 0 ;RESET RANDOM VARIABLES EACH PASS FLAG. 
171 002204 000 HAE:: .BYTE 0 ;HALT AFTER EACH COMMAND FLAG. 
172 002205 000 ERCVER:: .BYTE 0 ;ENABLE RECOVERABLE ERROR PRINTS FLAG. 
173 002206 000 -BYTE 0 ; SPARE. 
174 002207 000 BYTE @ ; SPARE 
175 002210 000 DINT -BYTE 0 ;DISABLE INTERRUPTS FLAG. 
176 002211 000 IREC:: .BYTE 0 ; INHIBIT ERROR RECOVERY FLAG. 
177 002212 000 CHGFLG:: .BYTE 0 — CMD SEQ TABLE FLAG. 
178 002215 000 -BYTE 0 PARE. 
179 002214 000 PIRE:: .BYTE 0 i TNMIBIT RESIDUAL FRAMECOUNT ERROR REPORT FLAG. 
180 002215 000 BYTE 0 ; SPARE. 
181 002216 000040 CHAR:: CH.EAI TCHARACTERISTICS CODE (DEFAULT = 40). 
182 , 002220 000015 CMDD:: .WORD 15. ; COMMAND ‘. (DEFAULT = REWIND). 
183 002222 000001 -WORD 1 :BYTE COUNT 
1 002224 000001 -WORD 1 ;NUMBER OF OPERATIONS 
185 002226 000007 -WORD  RANP ;PATTERN 
186 002230 000004 -WORD 4 COMMAND 3 (DEFAULT = WRITE) 
187 002232 004000 -WORD DATCNT :BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
188 002234 076400 -WORD 32000. ;NUMBER OF OPERATIONS wo be = 32000). 
189 002236 000007 -WORD RANP ;PATTERN (DEFAULT = RANDOM) 
190 002240 000003 WORD 3 :COMMAND 4 (DEFAULT = READ REV). 
191 002242 004000 -WORD DATCNT :BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
192 002244 076400 -WORD 532000. :NUMBER OF OPERATIONS (DEFAULT = 32,000). 
193 002246 000007 -WORD  RANP ;PATTERN (DEFAULT = RANDOM). 
194 002250 000002 WORD 2 ;COMMAND 5 (DEFAULT = READ FWD). 
195 002252 004000 ~WORD DATCNT :BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
196 002254 076400 -WORD 32000. INUMBER OF OPERATIONS (DEFAULT = 32,000). 
197 002256 000007 -WORD RANP :PATTERN (DEFAULT = RANDOM). 
198 002260 000015 -WORD 13. ; COMMAND .. (DEFAULT = REWIND). 
199 002262 000001 -wORD 1 ;BYTE COUN 
200 002264 000001 -wORD 1 ;NUMBER OF "OPERATIONS 
201 002266 000007 -WORD  RANP PATTERN 
202 002270 000033 «WORD 27. sEND OF CMD SEQ TABLE CODE (DEF) OR CMD 7 
203 002272 004000 -WORD = DATCNT :BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
204 002274 076400 -WORD 32000. ;NUMBER OF OPERATIONS (DEFAULT = 32000). 
205 002276 000007 -WORD  RANP - ;PATTERN (DEFAULT = RANDOM). 
206 002300 000053 -WORD 27, ;END OF CMD SEQ TABLE CODE (DEF) OR CMD 8 
207 002302 004000 WORD DATCNT ;BYTE COUNT (DEFAULT = MAX BUFFER SIZE). 
208 002304 076400 -WORD 32000. ;NUMBER OF OPERATIONS (DEFAULT = 32000). 
$3 002306 000007 -WORD RANP PATTERN (DEFAULT = RANDOM). 
211 002310 END SW 
212 002310 i 10001: 
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213 
214 002310 ENDMOD 


o* 2° #8e* w « 
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002310 


002310 
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100000 


000001 
001000 


000001 


000040 


000034 


000340 
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-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 
BGNMOD 


-+¢ 


: THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST. 


EQUALS 
DIFINITIONS 
100000 


O-NVWEYENDWOO—MwWwFEeuW - 
HHunnhnhnthnhnnnhnnwn 
Hn ee ee 

= 

o 

oO 


BoOwowwwwwowoowawwam:--:--:- 


LL LLL LL 
SO—NWWFYOnN@DWO DOCCOCOOCOOCSC0O$]]]—-— = 


be he a a Be Ot as 


TIONS 


m 
<= 
> +e) 


-s. MmMmMmMmms.s-*-*)> DOMDWDOWIWIOIOoww:- 
ee ee ee ee Be | 
° ° 
wv2z20ODM 

So 
r 4 
“ 
coll 
z 
Cc 
mn 

' 

1 


; PRIORITY LEVEL DEFINITIONS 
PRIO7== 340 


N 
VED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


START COMMAND WAS ISSUED 
RESTART COMMAND WAS ISSUED 
CONTINUE COMMAND WAS ISSUED 


; A NEW PASS HAS BEEN STARTED 


A POWER-FAIL/POWER-UP OCCURRED 


SEQ 0048 
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000300 


000900 
‘OPERATOR FLAG BITS 
000004 


Pr rhs 

,o<c 

7 oe 
' 


be 

“no 
mmamme 4M swc 
Hunnunnhnnnhnnnaww 


40000 
100000 100000 


REGISTER USAGE. 


PASSES PARAMETERS TO/FROM a PCRS, 
COMMAND SEQUENCE TABLE POINTER 

GENERAL PURPOSE REGISTER 

GENERAL PURPOSE REGISTER. 

GENERAL PURPOSE REGISTER 

CURRENT LOGICAL DEVICE NUMBER X 2. 

STACK POINTER. 

PROGRAM COUNTER. 


THE FOLLOWING ARE BIT DEFINITIONS FOR THE TSSR REGISTERS. 


100000 .$C==100000 SPECIAL CONDITION BIT. 

- UPE==40000 ;UNIBUS PARITY ERROR 
;SERIAL BUS PARITY ERROR. 
sREGISTER MODIFICATION REFUSED. 
NON-EXISTENT MEMORY. 
;NEED BUFFER ADDRESS. 
;BUS ADDRESS BIT 17. 
;BUS ADDRESS BIT 16. 
coe READY BIT. 


FF LINE. 
. sFATAL CLASS CODE MASK. 
177761 ; TERMINATION CLASS CODE MASK. 
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100000 


004000 
002000 


000200 
000100 
000100 


000040 
000040 
000020 / 
000020 
000001 


000200 
000040 
000020 
000040 


000004 
000014 


100000 


000001 - 


100000 
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GLOBAL EQUATES SECTION 


~ 


sTHE FOLLOWING ARE BIT DEFINITIONS FOR THE COMMAND WORD 


ACK.C==100000 ; ACKNOWLEDGE BIT 

CvC.C==40000 ;CLEAR VOLUME CHECK. 

OPP.C==20000 ;OPPOSITE BIT 

SWB .C==10000 + SWAP BYTE BIT 

MOD .C3==4000 ;MODE B11 3 

BRF ..C==4000 :BYTE/RECORD/FILE COUNT FLAG BIT. NOT USED 
;BY 1804 BUT USED INTERNALLY BY THIS PROGRAM ONLY. 

MOD.C2==2000 :MODE BIT 2 

MOD .C1==1000 :MODE BIT 1 

MOD.C9==400 ;MODE BIT 0 

1€.C==200 ; INTERRUPT ENABLE 

FMT.C1==100 ;FORMAT BIT 1 

vFY.C==100 WRITE VERIFY FLAG BIT. INTERNAL USE ONLY. 
;NOT USED BY TS04. 

FMT.CO==40 sFORMAT BIT 0. 

JMP.C==40 ; JUMP BIT-TO DIRECT THIS PROGRAM TO JUMP TO 
3A CERTAIN LOCATION IN THE COMMAND SEQUENCE 
;TABLE. INTERNAL USE ONLY. 

CMD.C4==20 COMMAND BIT 4 

DLY.C==20 ; INSERT DELAY. INTERNAL USE ONLY. 

CMD.C3==10 ;COMMAND BIT 3 

CMD.C2==4 ;COMMAND BIT 2 

CMD.C1==2 ;COMMAND BIT 1 

CMD.CO==1 . ;COMMAND BIT 0 

: BIT DEFINITIONS FOR DEVICE CHARACTERISTICS. 

CH.ESS==200 sENABLE SKIP TAPE MARKS STOP (STOP AT LOGICAL EOT). 

CH.EA]==40 ;ENABLE ATTENTION INTERRUPTS. 

CH.ERI==20 ENABLE MESSAGE BUFFER RELEASE INTERRUPTS. 


DF TSCH==CH.EAI 


;DEFAULT CHARACTERISTICS CODE. 


7THE FOLLOWING INDICATES THE RELATIVE POSITIONS OF THE STATUS WORDS 


7IN THE MESSAGE BUFFER. 


;RESIDUAL FRAME COUNT. 
sEXT STATUS REG 0 
sEXT STATUS REG 1 
sEXT STATUS REG 2 
sEXT STATUS REG 3 


;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0. 


x0. TMK==100000 


; TAPE M 

RECORD ACENGTH SHORT. 
LOGICAL EOT. 

; RECORD LENGTH LONG. 
;ON LINE BIT 

;BOT BIT. 


E01 BIT. 


;THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2. 


X2.0PM==100000 


OPERATION IN PROGRESS, TAPE MOVING 


SEQ 0050 
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378 
ad THE FOLLOWING ARE BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3. 
381 000010 X3.DCK==10 sDENSITY CHECK. 
336 157400 x3. RNY==157400 sCAPSTAN RUNAWAY UDIAG ERROR CODE. 
384 THE FOLLOWING DEFINITIONS SHOW THE RELATIVE POSITIONS OF THE COMMAND 
‘7 PACKET ENTRIES. 
387 000000 CP.CMD==0 :CMDPKT+0==1S04 COMMAND. 
388 000002 CP.ADL== :CMDPKT+2==BUFFER ADDRESS LOW. 
389 000004 CP.ADH==4 : CMDPKT+4==BUFFER ADDRESS HIGH. 
0 000006 CP.CNT== : CKDPKT+6==BYTE/FILE/RECORD COUNT 
44 5 MISCELLANEOUS DEFINITIONS. 
394 000340 INTPR1==PR107 PRIORITY TO BE USED IN Iurennupt STATE. 
395 002452 TSBA==TSDB [DATA BUFFER ADDRESS REGISTE 
396 000010 SCHCNT==10 [ARBITRARY BYTE LENGTH | ron CHARACTERISTIC 
397 BUFFER LENGTH. (EVEN # 
398 000016 MSGCNT==16 SMESSAGE BUFFER LENGTH - BYTES. (EVEN #) 
399 7 003044 DIABLK==DATAWT sWRITE BUFFER ALSO USED FOR DIAG CMD. 
400 000020 DIACNT==20 DIAGNOSTIC COMMAND BUFFER EXTENT. 
401 004000 DATCNT==2048. :;MAXIMUM RECORD LENGTH IN BYTES, 
402 : THIS COUNT SHOULD BE A MULTIPLE OF 256 TO INSURE 
403 sPROPER READ/WRITE BUFFER ALLOCATION BY THE SUPER. 
404 000270 CNTLEN==CNTEND-CNTBGN / sLENGTH OF STATISTICAL COUNTER AREA. 
405 177740 RNOPSC==177740 RANDOM # OF OPERATIONS MASK. 
406 000007 RANP==7 :CODE TO SELECT RANDOM PATTERN. 
407 000020 RRECL==16. sREAD RECOVERY ATTEMPT LIMIT. 
408 000020 WRECL==16. [WRITE RECOVERY:ATTEMPT LIMIT 
409 153624 RANBC==153624 ‘CONSTANT USED TO RESET RANDOM # GENERATOR BASE. 
410 032561 RANSC==32561 a CONSTANT USED TO RESET RANDOM # SAvE LOCATION. 
411 177774 NINUSE==177774 NOT USE CODE FOR DEVICE STATE TABLE. 
412 177740 NCMD.C==ACK.C!CVC.C!OPP.C!SwB. COD. c3'MOD. C2'MOD.C1!MOD.CO!IE.C'FMT.C1!FMT.CO 
ts NOT "‘COMMAND'’ BITS. 
414 
4H :THE FOLLOWING DEFINES THE COMMAND WORD FOR EACH TS04 COMMAND. 
4 
417 100013 DRI== ACK.C!CMD.C3!CMD.C1!CMD.CO 
8 sORIVE INIT. 
4 
420 104001 RDF== ACK.C!BRE.C!CMD.CO 
aH sREAD FORWARD 
4 
423 104401 RDR== ACK.C!BRFE.C'MOD.CO!'CMD.CO 
ee sREAD REVERSE 
: ; 
426 104005 WRT== ACK.C!BRF.C!CMD.CO!CMD.C2 
3? sWRITE COMMAND 
4 
429 104105 WIV== ACK. C!BRE.C!VFY.C!CMD.CO!CMD.C2 
430 sWRITE VERIFY 
4 
432 104010 SRF== ACK.C'BRE.C!CMD.C3 


433 ;SPACE RECORD FORWARD 
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104410 


105401 


125401 


105001 


125001 


105005 


102010 


100012 


100011 


101011 


105010 


105410 


100017 


100411 


100412 


101012 


140004 
100006 
000040 
000020 
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GLOBAL EQUATES SECTION 


SRR== 


RPF == 


RPR== 


WRR== 


RWD== 


ACK.C!BRF.C!MOD.CO!CMD.C3 
;SPACE RECORD REVERSE 


ACK .C!BRF.C!MOD.C1!MOD.CO!CMD.CO 
;READ REV RETRY1 = REREAD NEXT REVERSE, IE. SPACE FWD, READ REVERSE 


ACK.C!BRF.C!OPP.C!MOD.C1!MOD.CO!CMD.CO 
REA REV RETRY2 = REREAD NEXT FORWARD, IE.READ FORWARD, SPACE REVERSE 


ACK.C!BRF.C!MOD.C1!CMD.CO 
;READ FWD RETRY! = REREAD PREVIOUS FORWARD, IE. SPACE REVERSE, READ FORW 


ACK.C!BRF.C!OPP.C!MOD.C1!CMD.CO 
;READ FWD RETRY2 = REREAD PREVIOUS REVERSE, IE. READ REVERSE, SPACE FORW 


ACK.C!MOD.C1!BRF.C!CMD.C2!CMD.CO 
sWRITE RETRY 


ACK.C!MOD.C2!CMD.C3 
;REWIND COMMAND 


ACK .C!CMD.C5!CMD.C1 
;MESSAGE BUFFER RELEASE 


ACK.C!CMD.C3!CMD.CO 
;WRITE TAPE MARK. 


ACK.C!MOD.C1!CMD.C3!CMD.CO 
;WRITE TAPE MARK RETRY. 


ACK.C!BRF.C!MOD.C1!CMD.C3 
;SPACE FILE FORWARD 


ACK.C!BRF.C!MOD.CO!MOD.C1!CMD.C3 
;SPACE FILE REVERSE 


ACK.C!CMD.CO!CMD.C1!CMD.C2!CMD.C3 
GET EXTENDED STATUS 


ACK.C!MOD.CO!CMD.C3!CMD.CO 
;ERASE 3 INCHES OF TAPE 


ACK.C!MOD.CO!CMD.C3!CMD.C1 
UNLOAD COMMAND 


ACK.C!MOD.C1!CMD.C3!CMD.C1 
sERASE TAPE. 


ACK.C!CVC.C!CMD.C2 SET DEVICE CHARACTERISTICS. 
ACK.C!CMD.C2!CMD.C1 DIAGNOSTICS. 

JMP.C ; JUMP TO ‘'N’'TH COMMAND 
DLY.C ;DELAY ‘'N’' MS. 


SEQ 0052 
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490 
491 177777 END== 177777 END OF COMMAND SEQUENCES 
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PAAAAMANVIWUI AUT 
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Mmrmr 
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th tn yt 
SISRFANG 


002320 


002324 


002330 
002332 


002334 
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002310 


000000 


002320 
100017 


002324 
100012 


002330 
102010 
000001 


000007 
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-SBTTL 


GLOBAL DATA SECTION 


344 
; THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 


CMDPKT: : 


MSGPKT:: 


; IN MORE THAN ONE TEST. 


COMMAND PACKET. 


= -*38177774 ;MUST BE ON MOD 4 BOUNDRY. 

0 31ST WORD 1S TSO4 COMMAND. 
32ND WORD IS THE BUFFER LOW ADDRESS. 
33RD WORD IS THE BUFFER HIGH ADDRESS. 
74TH WORD 1S THE BYTE/RECORD/FILE COUNT. 


ooo 


"GET STATUS COMMAND PACKET. 


= .+38177774 ;MUST BE ON MOD 4 BOUNDRY. 
-WORD GES 


> 


MESSAGE BUFFER RELEASE COMMAND PACKET. 


= ~*38177774 ;MUST BE ON MOD 4 BOUNDRY. 
-WORD MBR 


REWIND COMMAND PACKET (USED IN ERROR RECOVERY ONLY) 


= .+38177774 ;MUST BE ON A MODULE 4 BOUNDARY. 
-WORD RWD 
-WORD 1 


WORK AREA FOR ANALYSIS OF MESSAGE PACKET CONTENTS. 


-BLKW 7 31ST WORD:: MESSAGE TYPE. 
72ND WORD:: DATA FIELD LENGTH. 
73RD WORD:: RESIDUAL FRAME .COUNT. 
74TH WORD:: XSTATO 
75TH WORD:: XSTATI 
76TH WORD:: XSTAT2 
:7TH WORD:: XSTAT3 


SEQ 0054 
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te ; MESSAGE PACKETS. 

541 002352 000007 MSGPKO:: .BLKW 7 MESSAGE PACKET FOR DEVICE #0 

542 002370 000007 MSGPK1:: .BLKW 7 MESSAGE PACKET FOR DEVICE #1 

543 002406 000007 MSGPK2:: .BLKW 7 MESSAGE PACKET FOR DEVICE #2 

i“ 002424 000007 MSGPK3:: .BLKW 7 MESSAGE PACKET FOR DEVICE #3 

7 ; SET CHARACTERISTIC BLOCK. 

548 002442 002352 ' SCHBK:: MSGPKO :1ST WORD:: MSGPKT ADDR LO(SET UP BY EXCUTE ROUTINE). 
549 002444 000000 0 :2ND WORD:: MSGPKT ADDR HI. 

550 002446 000016 MSGCNT :3RD WORD:: MSG BUFFER LENGTH (BYTES) 
2) 002450 000040 CH.EAL 41H WORD:: CHARACTERISTICS WORD(SET BY SETUP ROUTINE). 
37 3 TSO4 REGISTER ADDRESSES. 

555 002452 000004 TSDB:: .BLKW 4 :1S04 DATA BUFFER ADDRESSES. 

556 002462 000004 TSSR:: .BLKW 4 :1TS04 STATUS REGISTER ADDRESSES. 

tt 002472 000004 TSVCT:: .BLKW 4 :1TS04 VECTOR ADDRESSES. 

+44 Sw ADDRESSES OF MESSAGE PACKETS. 

561 002502 002352 MSGPKA:: MSGPKO sDEVICE 0. 

562 002504 002370 MSGPK1 sDEVICE 1. 

563 002506 002406 MSGPK2 DEVICE 2. 

re: 002510 002424 MSGPK3 :DEVICE 3. 

see ; ADDRESSES OF INTERRUPT HANDLING ROUTINES. 

568 002512 006012 TSGINT:: TSGINO DEVICE 0. 

569 002514 006020 TS4INI DEVICE 1. 

570 002516 006026 TS4IN2 ;DEVICE 2. 

a 002520 006034 TS4IN3 :DEVICE 3. 

444 ; TS04 CODE LEVELS, WILL BE STORED AFTER SCH CMD IN BASIC FUNCTION TEST 
575 002522 000000 TS4CL:: 0 ;DEVICE 0 

576 002524 000000 0 sDEVICE 1 

577 002526 000000 0 sDEVICE 2 

sn 002530 000000 0 sDEVICE 3 

580 : UNIT NUMBERS OF ALL DEVICES BEING TESTED(1-4). 

581 : WHEN DEVICE IS NOT IN USE, I17,S LOCATION WILL = -3. 

sat ; RS WILL ALWAYS CONTAIN THE PRESENT LOGICAL UNIT NUMBER X 2. 
584 002532 177774 DEVTBL:: .WORD NINUSE 

585 002534 177774 ~WORD NINUSE 

586 002536 177774 : »WORD NINUSE 

587 002540 177774 ~WORD NINUSE 

$88 002542 177777 -WwORD END 
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589 ; COUNTER AREA. 
590 
591 002544 CNTBGN=. 
592 002544 000020 WRBC:: .BLKW 20 BYTES WRITTEN. 
593 002604 000020 RRBC:: .BLKW 20 BYTES at ab os 
594 002644 000020 RFBC:: .BLKW 20 ;BYTES READ FWD. 
595 002704 000004 WRREC:: .BLKW 4 s;RECOVERABLE WRITE ERRORS. 
596 002714 000004 WRUNR:: .BLKW 4 SUNRECOVERABLE WRITE ERRORS. 
597 002724 000004 RRREC:: .BLKW 4 :RECOVERABLE READ REV ERRORS. 
598 002734 000004 RRUNR:: .BLKW 4 ;UNRECOVERABLE READ REV ERRORS. 
599 002744 000004 RFREC:: .BLKW 4 ;RECOVERABLE READ FWDERRORS. 
600 002754 000004 RFUNR: : 4 ;UNRECOVERABLE READ FWD ERRORS. 
601 002764 000004 PASCNT:: .BLKW 4 ;PASS COUNT. 
602 002774 000004 SCCNT:: .BLKW 4 ;SPECIAL CONDITION COUNT. 
603 003004 000004 VFYCNT:: .BLKW 4 ;COUNT OF TSO4 DATA COMPARE ERRORS. 
604 003014 000004 HRDCNT:: .BLKW 4 ;COUNT OF HARD ERRORS. 
605 003024 000004 FILCNT:: .BLKW 4 ;COUNT OF FATAL ERRORS. 
606 003034 CNTEND=. sEND OF STATICTICAL COUNTERS.” ~ 
2 +4 003034 000004 RECCNT:: .BLKW 4 ;NUMBER OF RECORDS FROM BOT(CLEARED ONLY ON REWIND). 
609 
610 ; THE FOLLOWING ARE _ DEFINITIONS OF VARIABLES 
oH USED BY THE PROGRAM 
6 
513 003044 000000 DATAWT:: .WORD 0 ;WRITE BUFFER ADDRESS. 
614 003046 000000 DATARD:: .WORD 0 ;READ BUFFER ADDRESS. 
615 003050 000000 NCNT:: .WORD 0 ;STORAGE FOR VALUE OF N. 
616 003052 000000 NCNT1:: .WORD 0 ; TEMP STORAGE FOR VALUE OF N. 
617 003054 000000 BRFCNT:: .WORD 0 STORAGE FOR BPCR VALUE. 
618 003056 177777 CMDWRD:: .WORD END :CONTAINS COMMAND WORD BEING EXECUTED PRESENTLY. 
619 003060 177777 CMDSAV:: .WORD END SAVE LOCATION FOR CMD WORD DURING ERROR RECOVERY 
620 003062 177777 PCMDWD:: .WORD END ;CONTAINS PREVOUS COMMAND WORD. 
621 003064 000000 CMDLG:: .WORD 0 ;CURRENT COMMAND LOGGING’ CODE. 
622 003066 000000 LENMSK:: .WORD 0 ;RANDOM WRITE LENGTH MASK, TO BE SET UP BY TESTS 
623 003070 153624 RANB:: .WORD 153624 RANDOM # GENERATOR BASE. 
624 003072 032561 RANS:: .WORD 32561 ;RANDOM # SAVE LOCATION. 
625 003074 000000 TIME1:: .WORD 0 ;TIME COUNT 1. 
626 003076 000000 TIME2:: .WORD 0 ;TIME COUNT 2. 
627 003100 000000 JLOOP:: .WwORD 0 ;JMP COMMAND LOOP COUNT. 
628 003102 000000 JLOC:: .WORD 0 ;JMP COMMAND LOCATION COUNT. 
629 003104 000000 PATERN:: .WORD 0 :PATTERN SELECT CODE. 
630 003106 000000 CTCC:: .WORD 0 ;CURRENT TERMINATION CLASS COD 
631 003110 000000 RSSAVE:: .WORD 0 TLOCATION FOR SAVING CURRENT DEVICE POINTER. 
632 003112 000000 TSSREG:: .WORD 0 ;CURRENT STATUS REGISTER. 
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003124 


000004 
000004 
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24-AUG-79 09:10 PAGE 21 


GLOBAL DATA SECTION 


: ERROR FLAG AREA, THESE FLAGS ARE CLEARED DURING INITIALIZATION AND 
: AFTER EACH COMMAND 1S COMPLETED. 


SEQ 0057 


+ rk ge 
RETRYC:: .WORD 0 :# OF RECOVERY ATTEMPTS EXECUTED. 
aie -BYTE 0 + RECORD COUNT HAS BEEN UPDATED FOR THIS RECORD. 
ERLOG:: .BYTE 0 DATA BYTES AND ERRORS HAVE BEEN LOGGED FOR THIS RECORD. 
RWERR:: .BYTE 0 READ/WRITE ERROR HAS OCCURED. 
UNREC:: .BYTE 0 SUNRECOVERABLE ERROR HAS OCCURED. 
ERRREC: : -BYTE 0 ERROR RECOVERY MODE. 
ENDERF=. 
; ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED DURING INITIALIZATION. 
INTFLG:: .BLKW 4 ; INTERRUPT OCCURRED FLAGS FOR EACH DEVICE. 
EOTFLG:: .BLKW 4 ;EOT/BOT FLAGS FOR EACH DEVICE (XSTATO). 
EXPBOT:: .BYTE 0 ;BOT 1S EXPECTED, DO NOT ABORT ON BOT/FUNC RTI. 
RANDOM:: .BYTE 0 RANDOM EVERYTHING FLAG. 
VFYFLG:: .BYTE 0 ;SET DURING WRITE/VERIFY COMMAND. 
RPTFLG:: .BYTE 0 ;PERFORMANCE REPORT HAS BEEN REQUESTED. 
SWBFLG:: .BYTE 0 ;ENABLES SWAP BYTE FUNCTION WHEN NOT EQUAL TO ZERO. 
IRE:: -BYTE 0 ; INHIBIT RESIDUAL FRAME COUNT ERROR REPORT. 
DROPED:: .BYTE 0 ; CURRENT UNIT HAS BEEN DROPPED 
TISWB:: .BYTE 0 TEST! SWAP BYTES FLAG 
ALLEOT:: hey 0 s;ALL UNITS @ EOT FLAG 

-EVEN 
ENDFLG=. 
; ADDITIONAL FLAGS, THESE FLAGS ARE CLEARED ONLY AFTER BEING CHECKED. 
STAFLG:: .BYTE 0 START FLAG = SET BY INIT CODE IF STARTING. 
PWRFLG:: .BYTE 0 POWER FAILURE FLAG - SET ONLY DURING INIT. 
TRAPD4:: .BYTE 0 ; TRAPED AT 4& FLAG 
SPAFLG:: .BYTE 0 ; SPARE FLAG 
: OPERATOR FLAG SETTINGS PASSED BY DIAG. SUPERVISOR IN A 16 BIT WORD 
: SEE GLOBAL EQUATES SECTION FOR FLAG BIT LIST 
OPFLAG:: .WORD 0 READ ONLY OPERATOR FLAG WORD 

-EVEN 


GLOBAL AREAS 
CZTSHB.P11 


003164 


003264 


MACY1) ye 
24-AUG-79 09:08 


140004 


177777 
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CMDSEQ:: 


CMDSE2::_ 


THE FOLLOWING 1S THE COMMAND SEQUENCE TABLE. THE TABLE _ 
HAS DEFAULT VALUES AT PROGRAM LOAD AS SHOWN. THESE VALUES 


;CAN BE UPDATED BY A TEST OR BY OPERATOR INPUT. 


SCH 
CH.EAI 


SET CHARACTERISTICS. 


; REWIND. 
:BYTE COUNT. 
; ONCE. 

; PATTERN. 
WRITE. 


:MAX BUFFER LENGTH. 
;32,000 RECORDS. 


;RANDOM PATTERN. 
;READ REV 

7 MAX BUFFER LENGTH. 
332,000 RECORDS 


RANDOM PATTERN. 
;READ FWD. 

MAX BUFFER LENGTH. 
332,000 RECORDS. 


RANDOM PATTERN. 
REWIND. 

;BYTE COUNT. 

NCE. 


:0 

PATTERN. 

sEXTENSTION TO HOLD 1 MORE CMD. 
;SOFT END OF SEQUENCE TABLE. 


HARD END OF SEQUENCE TABLE. 


SEQ 0058 
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He ;THE FOLLOWING 1S THE TS04 COMMAND TABLE 
710 003266 100013 CMDTBL:: .WORD ORI sORIVE INIT. 
711 003270 104001 ~ WORD RDF sREAD FORWARD. 
712 003272 104401 WORD ROR + READ REVERSE. 
713 003274 104005 -WORD WRT sWRITE 
714 003276 104105 WORD WIV ‘WRITE/VERIFY. (WRITE ALL "iad aad RDR AND 
715 s;CHECK DATA ON ALL RECORDS, RDF AND 
716 sCHECK DATA ON ALL RECORDS.) 
717 003300 104010 ~ WORD SRF : SPACE "'N'’ RECORDS FORWARD. 
718 003302 104410 WORD SRR 7SPACE ‘“'N’’ RECORDS REVERSE. 
719 003304 105401 WORD RNR ;READ NEXT REVERSE. !.€., SPACE FWD, READ REVERSE. 
720 003306 125401 ~ WORD RNF sREAD NEXT FORWARD, 1.E£., READ FORWARD, SPACE REVERSE. 
721 003310 105001 ~ WORD RPF ;READ PREVIOUS FORWARD. 1.E£., SPACE REVERSE, READ FORWAR 
722 003312 125001 ~ WORD RPR ;READ PREVIOUS REVERSE. 1.E£.,. READ REVERSE, SPACE FORWAR 
723 003314 105005 -WORD WRR [WRITE RETRY. 
724 003316 102010 WORD RWD sREWIND. 
725 003320 100012 WORD MBR : MESSAGE BUFFER RELEASE 
726 003322 100011 WORD wih sWRITE TAPE MARK 
727 003324 101011 ~ WORD WIR WRITE TAPE MARK RETRY. 
728 003326 105010 WORD SFF sSPACE "'N’’ FILES FORWARD. 
729 003330 105410 ~ WORD SFR ;SPACE "'N’’ FILES REVERSE. 
730 003332 100017 WORD GES 3;GET EXTENDED STATUS. 
731 003334 100411 WORD ERS sERASE 3 INCHES OF TAPE. 
732 003336 100412 ~ WORD UNL ;REWIND AND UNLOAD. 
733 003340 101012 . WORD CLN sCLEAR TAPE. 
734 003342 140004 ~ WORD SCH sSET CHARACTERISTICS. 
735 003344 100006 - WORD DIA ;DIAGNOSTIC COMMAND. 
736 003346 000040 -WORD JMP : JUMP TO THE NTH COMMAND IN THE SEQUENCE. 
737 003350 000020 -WORD OLY DELAY ‘'N'’ MS. 
738 003352 177777 -WORD END :END OF COMMAND TABLE 
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et ; THE FOLLOWING TABLE CONTAINS THE ASCII FOR EACH COMMAND. 
742 003354 051104 111 CMDASC:: .ASCII /DRI/ sDRIVE INIT. 
743 003357 122 043104 sASCI1 /RDF/ sREAD FORWARD. 
744 003362 042122 122 «ASCII /RDR/ [READ REVERSE. 
745 003365 127 052122 ASCII = /WRT/ sWRITE 
746 003370 052127 126 eASCII] /WTV/ ‘WRITE/VERIFY. (WRITE ALL RECORDS, ROR AND CHECK DATA 
747 :0N ALL RECORDS, Ror AND CHECK DATA ON ALL RECORDS.) 
748 003373 123 043122 eASCII /SRF/ [SPACE "'N’’ RECORDS FORWARD. 
749 003376 051123 122 eASCII /SRR/ :SPACE "'N’’ RECORDS REVERSE. 
750 003401 122 051116 -ASCII = /RNR/ SREAD NEXT REVERSE. 1.£., SPACE FWD READ REVERSE. 
751 003404 047122 106 sASCII1 = /RNF/ SREAD NEXT FORWARD, !.€., READ FORWARD, SPACE REVERSE. 
752 003407 122 043120 sASCIIL /RPF/ sREAD PREVIOUS FORWARD. IE., SPACE REVERSE, READ FORWARD 
753 003412 050122 122 sASCII /RPR/ sREAD PREVIOUS REVERSE. IE., READ REVERSE, SPACE FORWARD 
754 003415 127. 051122 ASCII /WRR/ ‘WRITE RETRY. 
755 003420 053522 104 eASCII = /RWD/ sREWIND. 
756 003423 115 051102 .ASCI1 /MBR/ : MESSAGE BUFFER RELEASE 
757 003426 052127 115 -ASCII = /WTM/ sWRITE TAPE MARK 
758 003431 127 051124 eASCII = /WTR/ ‘WRITE TAPE MARK RETRY. 
759 003434 043123 106 sASCI1 = /SFF/ >SPACE ''N’’ FILES FORWARD. 
760 003437 123 051106 sASCII] /SFR/ :SPACE "'N’’ FILES REVERSE. 
761 003442 042507 123 -ASCII /GES/ :GET EXTENDED STATUS. 
762 003445 105 051522 -ASCII1 /ERS/ sERASE 3 INCHES OF TAPE. 
763 003450 047125 114 eASCII = /UNL/ sREWIND AND UNLOAD. 
764 003453 103 047114 eASCII = /CLN/ :CLEAN TAPE. 
765 003456 041523 110 eASCII /SCH/ :SET CHARACTERISTICS. WHERE BRF=200, 40, 20, 0. 
766 “SEE 1S11/TS04 PROGRAMMING SPECIFICATION FOR DESCRIPTION 
767 003461 106 040511 -*°: * LASCHI «/DLA/ & ‘DIAGNOSTICS. SEE 1S11/1S04 PROGRAMMING SPECIFICATION 
768 [FOR DESCRIPTION. ODT MUST BE USED TO LOAD DIAGNOSTIC D 
769 : INTO THE WRITE BUFFER BEFORE THIS CMD IS ISSUED. 
770 003464 046512 120 -ASCII = /JMP/ : JUMP TO THE NTH COMMAND IN THE COMMAND 
771 ;SEQUENCE TABLE, WHERE N 1S DEFINED IN- 
772 [THE # OF OPERATIONS. 
773 003467 104 054514 -ASCII /DLY/ [DELAY ''N'’ MS, WHERE N IS DEFINED IN 
774 ‘THE # OF OPERATIONS. 
775 003472 047105 104 -ASCII  /END/ ‘END OF COMMAND SEQUENCE. 
776 003476 -EVEN 
777 
778 
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047045 
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047125 


046503 
040520 


041440 


052105 


as 


; THE GLOBAL TEXT SE 
; MESSAGES, AND ASCI 
; MORE THAN ONE TEST 


CTION CONTAINS FORMAT STATEMENTS, 
1 INFORMATION THAT ARE USED IN 


; FORMAT STATEMENTS USED IN PRINT CALLS 


CODELM:: 


HALTM: : 
CMDPKM: : 


WTVERM: : 
TOERM: : 


:: J ASC 


~~~ NNN Ne 


BEX 
/ZENZAUNIT %D1%ZA TS11 CODE LEVEL P%O032N2N/ 


/XXX CMD = TYPE <CR> TO CONTINUE/ 
/CMD PACKET ADR NOT ON MODULO 4 BOUNDARY: RELOAD!/ 


/DATA COMPARE ERROR/ 
/NO 1S11 RESPONSE/ 
/UNDEFINED SPEC COND/ 
/RFC NON ZERO/ 
/1TS11 NOT READY/ 
/RETRY LIMIT EXCEEDED/ 
/UNIT OFF LINE/ 
/FUNCTION REJECT/ 
/FATAL SUBSYSTEM ERROR/ 
/NO_ INTERRUPT/ 
/TAPE STATUS ALERT/ 
/TOO MANY INTERRUPTS/ 
/CAPSTAN RUNAWAY-GET STATUS RESULTS:/ 
/RECOVERABLE ERROR/ 
/UNRECOVERABLE ERROR/ 
/ZENZADROPPED UNIT %D12N/ 
/ZNZAALL UNITS DROPPEDZN2N/ 
“ENZABYTE : 2D42S22AWAS : SB8%S2%AS/B: 2BBIN" 
“ZD42ZA BYTES IN ERROR OUT OF %D4%N"° 
/ZANO DATA READZN/ 
/ZARECORD TOO LONG: >204%A BYTESZN/ 
/ZARECOVERED ON RETRY #2D22N/ 
/ZAUNIT ZD1%A OFF LINEXZN/ 
ae STATUS CMD RESULTS:%N/ 
x 


SEQ 0061 


GLOBAL 


CZTSHB. 


© Oo CO Co CD CD CD CD 
ee ed et etd 
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819 


AREAS 


Pil 


004720 


005062 
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062706 
010237 
010337 


010437 
004737 


013702 
010337 
013703 
013704 
013746 


000167 
000000 


005064 . 


005064 
005064 


104425 


003034 


000004 


000012 
000001 
000004 
006006 
003074 


003076 
006042 


006006 
006006 
003074 
003076 
006006 


005522 
000002 


000006 
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+4 


; THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
; THAT ARE USED IN MORE THAN ONE TEST. 


IT ALSO INCLUDES THE ASCII MESSAGES 


; THAT ARE USED BY THE PRINTB AND PRINTX CALLS.. 


DTAERM:: 


110002: 


BGNMSG DTAERM 


PRINTB #STAER1,DEVTBL(R5) ,PASCNT(R5) ,RECCNT (RS) 


PRINTB #STAER7 


LET RECRED := R2 
LET TIME! := R3 
LET TIME2 := R4 


JSR PC,RECTAP 
LET R2 := RECRED 


LET RECRED := R3 

LET R3 := TIME1 

LET RG := TIME2 

PRINTB #STAER6,RECRED 


EXIT MSG 


-EVEN 
ENDMSG 


sSAVE R2 
;SAVE R35 
SAVE R4 


RETRIEVE RECORD READ 
;RESTORE R2 


;SAVE RECORD READ 
;RESTORE R3 
RESTORE R4 

PRINT RECORD READ 


TRAP 


* CSPNTB 


R3,TIME1 










RECCNT(RS) ,-(SP) 
PASCNT(R5) ,=(SP) 
DEVTBL(R5S) ,-(SP) 
#STAER1,=-(SP) 
#4,-(SP) 
SP RO 

CSPNTB 

#12,SP 
#STAER7,=(SP) 
#1,-(SP) 

SP RO 

#4 ,SP 


R2,RECRED 


R4,TIME2 


RECRED,R2 
R3,RECRED 
TIME1,R3 
TIME2 ,R4 
RECRED,-(SP) 
#STAERO,-(SP) 
#2,-(SP) 
SP,RO 

CS$PNTB 

#6,SP 


JSJMP 
L10002-2-. 


C$MSG 
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013702 
042702 


005302 
005702 
001016 
004737 
010337 


013746 
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Seo 
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So 
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003034 


000004 


000012 
005472 
000001 
000004 
002310 


177%40 


006042 
006006 


006006 
005522 
000002 


000006 


005556 
000001 


000004 
003106 


000006 


000016 
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STAERM:: 


BGNMSG STAERM 


PRINTB #STAER1,DEVTBL(RS) ,PASCNT(R5S) ,RECCNT(R5) 


PRINTB #STAER7 


CMDPKT CLR.BY #177740 


LET R2 := 


LET R2 := R2 = #1 

IF R2 EQ #0 THEN 
JSR PC,RECTAP 
LET RECRED := R3 
PRINTB #STAER6,RECRED 


ENDIF 


PRINTX #STAER2 


PRINTX 


PRINTX 


;1F CMD IS A READ... 


; THEN RETRIEVE 
; AND 


TYPE RECORD READ 


500008: 


WSTAERG ,CMDPKT+2,CMDPKT+4,CMDPKT +6 





RECCNT(R5S) ,-(SP) 
PASCNT(R5) ,=(SP) 
DEVTBL(RS) ,-(SP) 
#STAER1,-(SP) 
#4,-(SP) 

SP,RO 

CS$PNTB 

#12,SP 


#STAER7,-(SP) 
#1,-(SP) 


CMDPKT ,R2 
#177740,R2 


R2 
R2 
50000$ 


R3,RECRED 


RECRED,-(SP) 
#STAER6,-(SP) 
#2,-(SP) 

SP RO 

CSPNTB 

#6,SP 


eeraees “ter 


CTCC,<(SP) 
TSSREG, -(SP) 
MSGPKT#MS RFC, =( 
@TSDB(RS) .-(SP) 
CMDPKT,- (SP) 
#STAERS,-(SP) 
#6,-(SP) 
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005300 


005376 


005400 
005472 


005756 


006006 


006010 
006010 
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000167 
000410 


040445 
040445 


045 
047445 


000000 


104423 


002316 
0 


000004 


000012 
002350 


0 
000005 


000014 


054130 
051120 


022466 
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! 


STAERI: . 
STAER7: . 
STAERO: . 
STAER2: . 


STAER3: . 
STAERG: 


STAERS: . 


RECRED: . 


L10003: 


PRINTX 


ENDMSG 


MOV CMDPKT+6,-(SP) 
MOV CMDPKT+#4,-(SP) 
MOV CMDPKT+#2,-(SP) 
MOV #STAERS ,-(SP) 
MOV #4,-(SP) 


SP ,RO 
Hong CSPNTX 


#12,S 
WSTAERS ,MSGPKT+#MS .XSO,MSGPKT*MS.XS1,MSGPKT+MS. x82, ISGPRTORS: Xs3 
MSGPKT+MS .XS3,-( 
HOV MSGPKT+MS .XS2,-( 
MOV MSGPKT#MS.XS1, =< 
MOV MSGPKT#MS.xS0,-( 
MOV MSTAERS,-(SP) 
MOV #5,-(SP) 
PRO 


SP, 
TRAP CSPNTX 
ADD #14,SP 


-WORD JSJMP 
«WORD 110003-2-. 


MSG 


BEX 
/%AXXX CMD FAILED = UNIT 2D12S3%APASS : 2052S 32%ARECORD : 2D52N/ 


/RAPREVIOUS CMD WAS XXX/ 

/%S11%A*® RECORD READ: %D52A 
/ENGACROPKTESORATSBAXS4ZARF CXSSRATSSRES SEATCCEN/ 
+1 ~> _ueeeimammaniaanimeenbtneel 

/%062N/ 

/%06%N/ 


/%063%N/ 
/RAXSTORS4RAXST VAS4ZAXST2RS4RAXST 3EN/ 
Soeeyhenaantennen acumen 


0 RECORD READ FROM TAPE 


TRAP C$MSG 
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000002 


005237 


000002 


005237 


000002 


005237 


000002 


003124 


003126 


003130 
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5 +9 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 


; THAT ARE USED IN MORE THAN ONE TEST. 


TS41NO:: 
L10004: 
TSG4INI:: 
Lr0008: 
TSGIN2:: 
L10006: 
TS4INS:: 


110007: 


MODULES TO HANDLE 1S04 INTERRUPTS. 


BGNSRV TS4INO 
LET INTFLG := INTFLG + #1 
ENDSRV 


BGNSRV TS4IN1 
LET INTFLG+2 := INTFLG+2 + #1 
ENDSRV 


BGNSRV TS4IN2 
LET INTFLG+4 := INTFLG*+4 + #1 
ENDSRV 


TS41N3 
7= INTFLG+6 + #1 


BGNSRV 
LET INTFLG+6 
ENDSRV 


sDEVICE 0. 


SET INTERRUPT OCCURRED — 


RTI 
sDEVICE 1. 


SET INTERRUPT OCCURRED — 


RTI 
sDEVICE 2. 


SET INTERRUPT OCCURRED ee 


RT] 
:DEVICE 3. 


SET INTERRUPT OCCURRED — 


RT] 


INTFLG 


INTFLG#2 


INTFLG+4 


INTFLG+6 


SEQ 0065 
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976 : SUBROUTINE TO RETRIEVE RECORD COUNT READ FROM TAPE FOR ERROR 
977 $ PRINTS. 
978 $ INPUTS: 
979 ; OUTPUTS: R3 = RECORD COUNT READ 
980 ; REGISTERS: R2, R3, R4 
oe : CALLS: 
983 006042 RECTAP::1F #MOD.CO SETIN CMOWRD THEN ;READ REV FETCH 
984 006042 032737 000400 003056 ; BIT #MOD.CO,CMDWRD 
985 006050 001430 BEQ . 50001$ 
986 006052 LET R2 := MSGPKT+¢MS.RFC + DATARD ;FIND LAST READ AD. 
987 006052 013702 002340 MOV MSGPKT#MS .RFC,R2 
988 006056 063702 003046 ADD DATARD,R2 
989 006062 IF #BITOO SETIN R2 THEN ;0DD AD., REASSEMBLE 
990 006062 032702 000001 BIT #81T00,R2 
991 006066 001417 BEQ 50002$ 
992 006070 LET R2 := R2 + #1 sREC COUNT STARTING 
993 006070 005202 INC R2 
994 006072 LET R3 :B= (R2) CLR.BY #177400 ;WITH UPPER BYTE FETCH 
995 006072 111203 . MOVB (R2),R3 
996 006074 142703 177400 BICB #177400,R3 
997 006100 LET R3 := SWAP R3 : 
998 006100 000303 SWAB R3 
999 006102 LET R2 := R2 - #1 ;LOWER BYTE AD. 
1000 006102 005302 DEC R2 
1001 006104 1FB SWBFLG NE #0 THEN 
1002 006104 105737 003150 TSTB SWBFLG 
1003 006110 001401 BEQ 50003$ 
1004 006112 LET R2 := R2 - #1 sLOWER BYTE AD. ON SWAP 
1005 006112 005302 DEC R2 
1006 006114 ENDIF 
1007 006114 50003$: 
1008 006114 LET RG :B= (R2) CLR.BY #177400 ; FETCH LOWER BYTE 
1009 006114 111204 MOVB (R2),R4 
1010 006116 142704 177400 BICB #177400,R4 
1011 006122 LET R3 := R3 OR RG ;MERGE BYTES 
1012 006122 050403 BIS R4,R3 
1013 006124 ELSE 
1014 006124 000401 GR 50004$ 
1015 006126 50002$: 
1016 006126 LET R3 := (R2) sEVEN AD. FETCH 
1017 006126 011203 MOV (R2),R3 
1018 006130 ENDIF 
1019 006130 500048: 
1020 006130 ELSE 
1021 006130 000402 QR 50005$ 
1022 006132 500018: 
1023 006132 LET R3 := QDATARD sREAD FWD FETCH 
1024 006132 017703 174710 MOV QDATARD,R3 
1025 006136 ENDIF 
+45, 006136 50005$: 
1028 006136 000207 RTS PC 
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1029 3 SUBROUTINE TO STORE A SET CHARACTERISTIC COMMAND AS 
1030 . THE FIRST ENTRY IN THE SEQUENCE TABLE. 
31 : INPUTS: 
: OUTPUTS: 
REGISTERS:. 
CALLS: 


006140 ; 7: LET RY := #CMDSEQ INIT COMMAND SEQUENCE — POINTER. 
003164 : #CMDSEQ,R1 
#SCH,(R1)+ THIS CODE SETS UP A SET MCHARACTERISTIC 
#DFTSCH,(R1)+ : COMMAND 7 THE FIRST COMMAND IN THE 
000001 #1, (R1)+ ; SEQUENCE TABLE. 
(R1)¢ SKIP PATTERN LOCATION. 


Cooo°Co°oooo 
WWANAWAaw 


CYVFWN—ODOONOUE wr 


006162 


FRERKR 


> 


oo 
* 
~ 


reset bg TO STORE A REWIND COMMAND IN THE SEQUENCE TABLE 
UTS: 


OUTPUTS: 
REGISTERS: 
CALLS: © 


006164 tt LET (R14 : :C(MD = REWIND. 
012721 102010 WRWD,(R1)4 
LET (R1)* := 4 :BRF. 


012721 000001 MOV #1,(R1)¢ 
LET (R1)+ : :# OF OPERATIONS. 


012721 000001 MOV wi, (R1)+ 
005721 TST (R1)+ ;SKIP PATTERN. 
PC ; RETURN 


006202 000207 RTS 
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1061 : SUBROUTINE TO EXECUTE ALL COMMANDS IN THE SEQUENCE TABLE ON ALL 
1062 : DEVICES. 
1063 ; INPUTS: 
1064 : OUTPUTS: R2 = TERMINATION INDICATOR (O=END OF TABLE,1=E0T) 
1065 : REGISTERS: 
los? : CALLS: CMDAC SETUP, EXSUB,CKHAE ,NEXTU,FIRSTU,VFYDAT. 
1068 006204 EXALL:: LET R1 := #CMDSEQ INIT SEQUENCE TABLE POINTER. 
1069 006204 012701 003164 MOV #CMDSEQ,R1 
1070 006210 WHILE (R1) NE #END DO ;WHILE THERE ARE CMDS IN THE SEQUENCE TABLE. 
1071 006210 50006$: 


1072 006210 021127 177777 CMP (R1) ,#END 
1073 006214 001527 BEQ 50007$ 
1074 006216 004737 007114 JSR PC,SETUP ;GO SETUP THE COMMAND BLOCK. 
1075 006222 WHILE NCNT LT NCNT1 DO ;WHILE THERE ARE RECORDS REMAINING: 
1076 006222 500108: 
1077 006222 023737 003050 003052 CMP NCNT,NCNT1 
1078 006230 002116 BGE 50011$ 
1079 006232 004737 007006 JSR PC,CMDAC STORE CMD ASCII IN ERROR MESSAGE. 
1080 006236 1FB RANDOM NE #0 THEN ;1F IN RANDOM MODE: 
1081 006236 105737 003145 TSTB RANDOM 
1082 006242 001435 BEQ 50012$ 
1083 006244 IF CMDWRD EQ #WRT THEN 31F CMD IS A WRITE THEN: 
1084 006244 023727 003056 104005 CMP CMDWRD , #WRT 
1085 006252 001031 BNE 500138 
1086 006254 I1FB VFYFLG EQ #0 THEN ;J]F DATA IS NOT TO BE VERIFIED THEN: 
1087 006254 105737 003146 TSTB VFYFLG 
1088 006260 001026 BNE 50014$ 
1089 006262 LET RANB := RANB + RANS) ;GENERATE 
1090 006262 063737 003072 003070 ADD RANS ,RANB 
1091 006270 LET RANS := RANS + RANB ;RANDOM 
1092 006270 063737 003070 003072 ADD RANB ,RANS 
1093 006276 LET BRFCNT := RANS ; LENGTH 
1094 006276 013737 003072 003054 MOV RANS ,BRFCNT 
1095 006304 * LET BRECNT := BRFCNT CLR.BY LENMSK ;MASK RANDOM LENGTH. 
1096 006304 043737 003066 003054 BIC LENMSK ,BRF CNT 
1097 006312 IF BRECNT LT #18. THEN ;D0 NOT ALLOW BYTE COUNT OF LESS THAN 18 
1098 006312 023727 003054 000022 CMP BRFCNT #18. 
1099 006320 002003 BGE 50015$ 
1100 006322 LET BRFCNT := #18. ;CHANGE COUNT OF 0-17 TO 18. 
1101 006322 012737 000022 003054 MOV #18. ,BRFCNT 
1102 006330 ENDIF 
1103 006330 50015$: 
1104 006330 LET CMDPKT+CP.CNT := BRFCNT ;MOVE BRF TO CMD PACKET. 
1105 006330 013737 003054 002316 MOV BRFCNT,CMDPKT+CP 
1106 006336 ENDIF 
1107 006336 500148: 
1108 006336 ; ENDIF 
1109 006336 500138: 
1110 006336 ENDIF 
1111 006336 50012$: 
1112 006336 004737 006500 JSR PC,EXSUB ISSUE CMD TO ALL,AWAIT INTS,CHECK STATUS. 
1113 006342 004737 014052 JSR PC, CKHAE ;CHECK HALT AFTER EACH CMD FLAG. 
1114 006346 LET R2 := #1 ;SET ALL UNITS AT BOT/EOT. 
ie 006346 012702 000001 MOV #1 ,R2 
6 


006352 004737 015462 JSR PC,FIRSTU sFIND FIRST UNIT. 


fall 
~~ 
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006356 WHILE DEVTBL(R5) NE #END DO ; WHILE THERE pega > Pa 


006356 026527 002532 177777 CMP DEVTBL(R5) ,#END 
006364 001426 BEQ 50017$ 

006366 IF #MOD.CO SETIN CMOWRD THEN ;1F CMD IS REVERSE THEN: 

006366 032737 000400 003056 BIT #MOD.CO,CMDWRD 
006374 001406 BEQ 50020$ 

006376 If #X0.BOT NOTSETIN EOTFLG(R5) THEN ;]F NOT AT BOT THEN: 

006376 032765 000002 003134 . BIT #X0.BOT ,EOTFLG(R 
006404 001001 BNE 50021$ 

006406 LET R2 := #0 ;CLEAR EOT/BOT FLAG. 

006406 005002 CLR R2 
006410 ENDIF 


50021$: 
006410 ELSE sELSE IF CMD IS NOT REVERSE: 
006410 000411 BR 500228 


500208: 
006412 ‘ 1f #XO0.EOT NOTSETIN EOTFLG(R5S) OR #CMD.CO NOTSETIN CMDWRD THEN 
006412 032765 000001 003134 BIT 71 tltaaatas 


006422 032737 000001 003056 BIT #CMD.CO,CMDWRD 
006430 001001 BNE 50024% 


500238: 
31 NOT AT EOT OR NOT A MOTION CMD THEN: 
006432 LET R2 := #0 ;CLEAR EOT/BOT FLAG. 
006432 005002 CLR R2 
006434 ENDIF 
006434 50024$: 
006434 ENDIF 
006434 50022$: 
006434 004737 013530 JSR PC, NEXTU ;FIND NEXT UNIT 
006440 ENDDO : ; 
006440 000746 BR 50016$ 


50017$: 
006442 If R2 EQ #1 THEN ;1F ALL UNIT ARE AT EOT/BOT THEN: 
006442 020227 000001 CMP R2,#1 
006446 001001 BNE 50025% 
006450 000412 BR EXARTN RETURN WITH R2 = #1. 
006452 ENDIF 


500258: 

006452 LET NCNT := NCNT + #1 ;UPDATE RECORD COUNT. 
006452 005237 003050 INC 
006456 LET PCMDWD := CMDWRD ;SAVE PREVIOUS COMMAND WORD. 
006456 013737 003056 003062 MOV 
006464 ENDDO 
006464 000656 BR 500108 
006466 500118: 
006466 004737 012450 JSR PC, VFYDAT IF LAST CMD WAS A WRITE VERIFY, THEN GO 

;VERIFY THE LAST N RECORDS OF DATA, 
006472 ENDDO . 


006472 000646 BR 50006$ 
006474 50007$: 
006474 LET R2 := #0 SET NORMAL RETURN INDICATOR, 
006474 005002 CLR 
006476 000207 EXARTN: RTS PC ;RETURN. 


‘NCNT 
CMDWRD ,PCMDWD 


R2 
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1173 
1174 
1175 3 SUBROUTINE TO ISSUE COMMAND TO ALL DEVICES, WAIT FOR 
1176 : ALL INTERRUPTS, AND CHECK ALL STATUS. 
1177 ; INPUTS: 
1178 ; OUTPUTS: 
1179 ; REGISTERS: . 
tat : CALLS: EXCUTE ,GOWAIT,NEXTU,FIRSTU. 
1182 006500 004737 013462 EXSUB:: JSR PC,FIRSTU :SET UP FOR FIRST UNIT 
1183 006504 WHILE DEVTBL(RS) NE #END DO :WHILE THERE ARE MORE DEVICES: 
1184 006504 500268: 
1185 006504 026527 002532 177777 CMP DEVTBL(RS),#END 
1186 006512 001450 BEQ 50027$ 
1187 006514 1F #MOD.CO SETIN CMDWRD THEN ;1F CMD IS REVERSE THEN: 
1188 006514 032737 000400 003056 BIT #MOD.CO,CMDWRD 
1189 006522 001421 BEQ 500308 
1190 006524 If #XO.BOT NOTSETIN EOTFLG(RS5S) THEN ;1F NOT AT BOT 
1191 006524 032765 000002 003134 BIT #X0.BOT ,EOTFLG(R 
1192 006532 001014 BNE 50031$ 
1193 006534 1f #XO.EOT SETIN EOTFLG(RS5S) THEN ;BUT IF AT EOT 
1194 006534 032765 000001 003134 BIT #X0.EOT EOTFLG(R 
1195 006542 001406 BEQ 500328 
1196 006544 I1FB ALLEOT NE #0 THEN AND ALL OTHERS AT EOT 
1197 006544 105737 003154 TSTB ALLEOT 
1198 006550 001402 BEQ 50033$ 
1199 006552 004737 007770- JSR PC ,EXCUTE THEN EXECUTE REV CMD 
1200 006556 ENDIF :1F NOT ALL AT EOT, FREEZE UNIT(S) AT EO 
1201 006556 500338: 
1202 006556 ELSE :1F NOT AT BOT AND 
1203 006556 000402 BR 50034$ 
1204 006560 50032$: 
1205 006560 004737 007770 JSR PC,EXCUTE sNOT AT EOT, EXEC REV CMD 
1206 006564 ENDIF 
1207 006564 50034$: 
1208 006564 ENDIF 
1209 006564 50031$: 
1210 006564 ELSE sELSE IF CMD 1S NOT REVERSE: 
1211 006564 000420 BR 50035$ 
1212 006566 500308: 
1213 006566 If #XO.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN 
1214 006566 032765 000001 003134 BIT #X0.EOT,EOQTFLG(R 
1215 006574 001404 BEQ 50036$ 
1216 006576 032737 000001 003056 BIT #CMD.CO,CMDWRD 
1217 006604 001003 BNE 50037$% 
1218 006606 500368: 
1219 :1— NOT AT EOT OR NOT A MOTION CMD THEN: 
1220 006606 004737 007770 JSR PC,EXCUTE : ISSUE CMD TO 1804 
1221 006612 ELSE 
1222 006612 000405 BR 50040$ 
1223 006614 500378: 
1224 006614 IFB ALLEOT NE #0 THEN 
1225 006614 105737 003154 TSTB ALLEOT 
1226 006620 001402 BEQ 50041$ 
1227 006622 004737 007770 JSR PC,EXCUTE 
1228 006626 ENDIF 
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1229 006626 50041$: 
1230 006626 ENDIF 
1231 006626 500408: 
1232 006626 ENDIF 
1233 006626 500358: 
1234 006626 004737 013530 JSR PC ,NEXTU FIND NEXT UNIT IN TEST CYCLE. 
1235 006632 ENDDC 
1236 006632 000724 BR 50026$ 
1237 006634 50027$: 
1238 006634 1FB RPTFLG NE #0 THEN ;1F REPORT HAS BEEN wae ty THEN: 
1239 006634 105737 003147 TSTB RPTFLG 
1240 006640 001403 BEQ 50042$ 
1241 006642 LET RPTFLG :B= #0 ;CLR THE FLAG, 
1242 006642 105037 003147 CLRB RPTFLG 
1243 006646 DORPT ;PRINT THE PERFORMANCE REPORT. 
1244 006646 104424 TRAP CSDRPT 
1245 006650 — ENDIF : 
1246 006650 50042$: 
1247 006650 004737 013462 JSR PC, FIRSTU ;SET UP FOR FIRST UNIT 
1248 006654 WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE DEVICES: 
1249 006654 500438: 
1250 006654 026527 002532 177777 CMP DEVTBL(R5) ,#END 
1251 006662 001450 , BEQ 50044$ 
1252 006664 IF #MOD.CO SETIN CMDWRD THEN ;1F CMD IS REVERSE THEN: 
1253 006664 032737 000400 003056 BIT #MOD.CO,CMDWRD 
1254 006672 001421 BEQ 50045$ 
1255 006674 : IF #X0.BOT NOTSETIN EOTFLG(RS) THEN ;]F NOT AT BOT 
1256 006674 032765 000002 003134 . BIT #X0.BOT ,EOTFLG(R 
1257 006702 001014 BNE 50046$_ 
1258 006704 IF #XO.EOT SETIN EOTFLG(R5) THEN ;BUT IF AT EOT 
1259 006704 032765 000001 003134 BIT #X0.EOT ,EOTFLG(R 
1260 006712 001406 BEQ 50047$ 
1261 006714 I1FB ALLEOT NE #0 THEN AND ALL OTHERS AT EOT 
1262 006714 105737 003154 TSTB ALLEOT 
1263 006720 001402 BEQ 50050$ 
1266 006722 004737 010300 JSR PC,GOWAIT ; THEN WAIT FOR CMD END 
1265 006726 ENDIF ;1F NOT ALL AT EOT, DO NOT WAIT 
1266 006726 500508: 
1267 006726 ELSE :NOT AT BOT, AND NOT aT EOT 
1268 006726 000402 BR 50051$ 
1269 006730 50047$: 
1270 006730 004737 010300 JSR PC, GOWAIT WAIT FOR INT, CHECK STAT 
1271 006734 ENDIF 
1272 006734 50051$: 
1273 006734 ENDIF 
1274 006734 500468: 
1275 006734 ELSE ELSE IF CMD 1S FORWARD: 
1276 006734 000420 BR 500528 
1277 006736 500458: 
1278 006736 IF #XO.EOT NOTSETIN EOTFLG(R5) OR #CMD.CO NOTSETIN CMDWRD THEN 
1279 006736 032765 000001 003134 BIT #X0.EGT EOTFLG(R 
1280 006744 001404 BEQ 500538 
1281 006746 032737 000001 003056 BIT #CMD. ce. CMDWRD 
1282 006754 001005 BNE 50054% 
1283 006756 50053$: 
1284 ;1F NOT AT EOT OR NOT A MOTION CMD THEN: 
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004737 010300 JSR PC,GOWAIT 
000405 — 


ij 
105737 003154 | 1FB ALLEQT NE #0 THEN 


001402 
004737 010300 JSR PC, GOWAIT 
ENDIF 
/ENDIF 

ENDIF 

004737 013530 JSR PC ,NEXTU 
ENDDO 

000724 
000207 RTS PC 


WAIT FOR INT,CHECK STATUS. 


50052$: 
;FIND NEXT UNIT IN TEST CYCLE. 


RETURN. 


BR 
500548: 


50056$: 
50055$: 


TSTB 
BEQ 


BR 
500448: 


50055$ 


ALLEOT 
50056$ 


500438 


SEQ 0072 
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1304 ; THIS SUBROUTINE STORES THE ASCII FOR THE CURRENT COMMAND AND PREVIOUS 
1305 ; COMMAND IN THE STANDARD ERROR MESSAGE. ON ENTRY LOCATION CMDWRD 

1306 : CONTAINS CURRENT CMD AND LOCATION PCMDWD CONTAINS PREVIOUS CMD. 

1307 ; INPUTS: 

1308 : OUTPUTS: 

1309 ; REGISTERS: +f R4. 

1319 ; CALLS: CMDA 

1312 007006 CMDAC:: LET R& := CMDWRD 7R4 = CMD BINARY. 

1313 007006 013704 003056 MOV CMDWRD ,R4 
1314 007012 004737 007060 JSR PC,GCMDA :GET CMD ASCII. 

1315 007016 112337 005402 MOVB (R3)+,STAER1+2 iMOVE CMD ASCII 

1316 007022 112337 005403 MOVB (R3)+,STAER143 

1317 007026 111337 005404 “on (R3),STAER14+4 : INTO MSG. 

1318 007032 LET RG := PCMDWD = PREVIOUS CMD BINARY. 

1319 007032 013704 003062 MOV PCMDWD ,R4 
1320 007036 004737 007060 JSR PC,GCMDA GET CMD ASCII. 

1321 007042 LET STAER7+#+24 :B= (R3)+ ;MOVE CMD ASCII 

1322 007042 112337 005516 MOVB (R3)+,STAER7+24 
1323 007046 LET STAER7#25 :B= (R3)+ : 

1324 007046 112337 005517 MOVB (R3)+,STAER7#25 
1325 007052 LET STAER7+#+26 :B= (R3) INTO MSG. 

1326 007052 111337 005520 | MOVB (R3),STAER7+26 
it 34 007056 000207 RTS PC ;RETURN. GO EXECUTE NEXT FUNCTION. 

1329 

1330 

1331 : SUBROUTINE TO FIND THE ASCII] EQUIVILENT OF THE COMMAND IN R4. 

1332 ; ADDRESS OF ascit ip WORD IS RETURNED IN R3. 

1333 : INPUTS: = PRESENT COMMAND WORD. 

1334 : OUTPUTS: RS = ADDRESS OF PRESENT COMMAND ASCII. 

1335 : REGISTERS: . 

ft 4 : CALLS: . " 

1338 007060 GCMDA:: LET R3 := #0 :INIT CMD TBL POINTER. 

1339 007060 005003 CLR R3 

1340 007062 WHILE CMDTBL(R3) NE R4 OC sUNTIL CURRENT CMD IS FOUND: 

1341 007062 50057$: 

1342 007062 026304 003266 CMP CMDTBL(R3),R4 
1343 007066 001403 BEQ 50060$ 
1344 007070 LET R3 := R3 + #2 :SEARCH CMD TABLE. 

1345 007070 062703 000002 ADD #2,R3 
1346 007074 ENDDO : 

1347 007074 000772 B& 50057$ 
1348 007076 500608: 

1349 007076 LET RG := R3 

1350 007076 010304 MOV R3,R4 
1351 007100 LET R3 := R3 SHIFT -1 sPOINT TO ASCI1 FOR THAT COMMAND 

1352 007100 006203 ASR R3 

1353 007102 000240 NOP 

1354 007104 060403 ADD R4,R3 

1355 007106 062703 003354 ADD #CMDASC,R3 

1356 007112 000207 RTS PC ;RETURN. 
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THIS SUBROUTINE LOADS THE 1S04 COMMAND PACKET FROM ONE 
Guts. THE SEQUENCE TABLE. 

OUTPUTS: 

REGISTERS: ~# R3. 

CALLS: GENPAT. 


LET CMDLG := #0 CLR CMD LOGGING CODE(DISABLES LOGGING) 
CLR CMDLG 


;LOAD THE COMMAND WORD. 
;LOAD THE BYTE/RECORD/FILE COUNT. 
+t BRF FOR THIS COMMAND. 


3 CMD. 
177740 . :CLR ALL BUT CMD BITS. 
R2,R5 SAVE IT TWICE. 
000010 #CMD.C3,R3 sPOSITION COMMAND? 
002312 eal ;MOVE BPCR IN 2ND PKT WORD FOR POSITION CMD. 


BR 
: 1F CMDPKT EQ #WIM THEN :1F CMD IS A WRITE TAPE MARK THEN: 
023727 002310 100011 CMP CMDPKT ,#WTM 
001003 BNE 50061$ 
. LET CMDLG := #2 sWTM LOGGING CODE IS 2. 
012737 000002 003064 MOV #2,CMDLG 


50061$: 


— at td 
Ww 
oun 
OO; 


003064 


—- 
SSSSSSSSSS SSS TSS 
WSFWNM—OOO~we VF wn— 


Ww 
~~ 
no 


010203 


R2 R53 
000001 * uattas ; A READ? 


; NOT. 

013737 003046 002312 MOV DATARD,CMDPKT+CP.ADL : LOAD THE BUFFER ADDR. 

IF #MOD.CO SETIN CMDPKT THEN ; D 1S A READ REV THEN: 
032737 000400 002310 BIT #MOD.CO,CMDPKT 
001404 BEQ 50062$ 

LET CMDLG := #4 ;LOGGING CODE IS 4. 

012737 000004 003064 MOV #4 ,CMDLG 

ELSE ELSE - IF CMD IS A READ FWD: 
000403 : BR 50063% 


50062$: 
LET CMOLG : ;LOGGING CODE IS 6. 
012737 000006 003064 MOV #6,CMDLG 


500638: 
3$ ; CONTINUE. 


: R2,R5 :1S 17 
000004 #CMD.C2,R5 TA SET CHARACTERISTICS CMD? 
4$ ;BR IF NOT. 


E 
CMDPKT+CP.ADL := #SCHBK :SET UP ADR LO FOR SET CHAR. 
002442 MOV #SCHBK ,CMDPKT+CP 
000010 WSCHCNT,CMDPKT+CP.CNT ;SET BUFFER EXTENT 
SCHBK+6 z= (RI) STORE CHARACTERISTIC CODE IN SCH BLOCK. 
002450 MOV (R1) ,SCHBK +6 
CONTINUE. 


: R2,R3 :1S 17 
000006 Ciro .011600 C289 :A_ DIAGNOSTIC (DIA) CMD? 
007310 000020 002316 WDIACNT,CMDPKT*CP.CNT ;LOAD BUFFER EXTENT. 





- Gy 
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007316 012737 
007324 005721 


007326 
007326*° 012137 
0073 


007342 010203 
007344 162703 
007350 001010 
007352 013737 
07360 004737 
007364 

07364 012737 
007372 


007372 032737 
007400 001407 


007402 112737 
007410 042737 


007416 000402 


007420 105037 


007424 015737 
007432 013737 


007440 105737 
007444 001405 


007446 052737 


007454 042737 


007462 013737 
007470 000207 


003044 


003052 


003050 
003104 


000005 


003044 
007472 


000002 
000100 
000001 
000100 


003146 


003056 
002310 
003150 


010000 


004000 
002310 
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002312 


002312 


003064 
002310 


003146 
002310 


003062 
003056 


002310 


002310 
003060 


5$: 


MOV 


39 
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1+ 1+ eal ;LOA 
& ° 


OINT TO N (NUMBER OF TIMES TO EXECUTE THIS INS 


TST (R1) : 
LET NCNT1 := (R1)¢ 7 SAV 
LET NCNT := #0 :CLE 
MOV (R1)+,PATERN 7 SAV 
MOV R2,R : 
SUB #CMD.CO!CMD.C2,R3 sA W 
BNE 5$ 7BR 
MOV DATAWT ,CMADPKT+CP.ADL ;LOA 
JSR PC ,GENPAT :60 
LET CMDLG := #2 7 WRI 
IF #VFY.C SETIN CMDPKT THEN IF 
LET VFYFLG :B= #1 7 SET 
BIC 3=a#VFY.C,CMDPKT strié 
ELSE iF 
LET VFYFLG :B= #0 7 CLR 
ENDIF 
LET PCMDWD := CMDWRD 7 SAV 
LET CMDWRD := CMDPKT 7 SAV 
1FB SWBFLG NE #0 THEN iF 


LET CMDPKT := CMDPKT SET.BY #SWB.C 


ENDIF 

BIC #BRF.C,CMDPKT 7 CLR 
LET CMDSAV := CMDPKT 7 SAV 
RTS PC :RET 













SEQ 0075 
D BUFFER ADR LOW. 
E NUMBER OF OPERATIONS 


MOV (R1)*,NCNTI 
AR OPERATION COUNTER. 


CLR NCNT 
| lea CODE FOR CURRENT CMD. 
RITE? 

IF NOT. 


D WRITE BUFFER LO ORDER. 
GENERATE THE WRITE PATTERN. 
TE LOGGING CODE IS 2. 
#2,CMDLG 


MOV 
DATA VERIFICATION IS REQUIRED: 
BIT #vFY.C,CMOPKT 
BEQ 500648 
VERIFY FLAG. 
#1,VFYFLG 


MOVB 
AR VERIFY BIT(NOT USED BY HARDWARE). 


DATA VERIFICATION IS NOT REQUIRED: 
BR 50065$ 
064$: 


CLRB VFYFLG 


50 
VERIFY FLAG. 


50065$: 
E PREVIOUS CMD WORD. 


MOV CMDWRD ,PCMDWD 
E PRESENT CMD WORD. 
MOV CMDPKT ,CMDWRD 
SWAP BYTES IS ENABLED: 
TSTB SWBFLG 
50066$ 


BEQ 
;SET SWAP BIT IN COMMAND. 
BIS #SWB.C.CMDPKT 


50066$: 
BRF BIT (CINTERNAL ONLY). 
—E 1ST WORD OF COMMAND PACKET. 
MOV CMDPKT,CMDSAV 
URN. 
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013703 
006303 


013704 
005204 


042704 
162704 
013702 


000207 


007556 


007766 


012703 


162704 
100411 


010522 
062703 


020327 
001002 


012703 


000764 


003104 


003054 


000001 
000002 
003044 


000002 
007534 


000400 
000002 


001002 
001000 


000400 
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THIS SUBROUTINE SETS UP AND CALLS THE APPROPRIATE SUBROUTINE TO GENERATE 


Se Ge Se Ge Se Ge 


GENPAT:: 


PATTBL: 


PATRO:: 


1$: 


THE DESIRED PATTERN FOR THE WRITE AND WRITE/VERIFY COMMANDS. 


INPUTS: 
OUTPUTS: 
REGISTERS: R2, R3, R4. 
CALLS: PATRO = PATR7 
LET R3 := PATERN SHIFT 1 sSETUP PATTERN ROUTINE P°'NTER 
MUV 
ASL 
LET R4 := BRECNT + #1 :SET LENGTH OF WRITE BFR 
LET RG := RG CLR.BY #1 ;ROUNDED UP TO NEXT WORD sic 
LET RG := RG = #2 sWITH FIRST WORD RESERVED - 
LET R2 := DATAWT + #2 ;FOR RECORD COUNT 
ADD 
JSR PC,@PATTBL(R3) ;GO GENERATE THE APPROPRIATE PATTERN. 
RTS PC ;RETURN TO SETUP SUBROUTINE. 


:TS04 WRITE PATTERN LOOKUP TABLE. USED TO JSR TO THE 
CORRECT DATA PATTERN GENERATING ROUTINE. 


PATRO 
P 


INCREMENTING PATTERN. O = 377. 
LET R3 := #400 


LET R4 := RG = #2 


MOV 
SUB 


;DECREMENT WORD COUNT. 


;BR IF DONE. 
;STORE DATA WORD. 


BMI 2$ 
LET (R2)+ := R3 
MOV 


LET R3 := R3 + #1002 ;UPDATE PATTERN. oon 
IF R3 EQ #1000 THEN 71 PATTERN HAS WRAPPED AROUND "3 

BNE 

LET R3 := #400 : INIT THE PATTERN AGAIN. 

MOV 

ENDIF 
50067$: 

BR 1$ D0 IT AGAIN, 


PATERN,R35 
R3 
BRFCNT,R4 
R4 


#1,R4 
#2,R4 
DATAWT ,R2 


#400,R5 
#2:,R4 


R3,(R2)+ 
#1002,R3 
R3,#1000 
50067$ 


#400,R3 


SEQ 0076 
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1511 007612 000207 28: RTS PC RETURN. 
1513 SALL ONE'S PATTERN. 
1515 007614 012703 177777 PATRI:: MOV #-1,R3 ALL ONES PATTERN;. 
1516 007620 ZROPAT: LET R4 := RG = #2 “DECREMENT BYTE COUNT. 
1517 007620 162704 000002 SUB #2,R4 
1518 907624 100402 BMI 1$ :DONE?.BR IF YES. 
1519 007626 010322 MOV R3,(R2)+ ‘IF NOT LOAD NEXT BYTE WITH PATTERN. 
1520 007630 000773 BR ZROPAT “DO IT AGAIN. 
1522 007632 000207 1$: RTS PC RETURN. 
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1388 sALL ZEROES PATTERN. 
1525 007634 005003 PATR2:: CLR R3 :CLR PATTERN REGISTER. 
1526 007636 004737 007620 JSR PC,ZROPAT 360 GENERATE IT. 
oer 007642 000207 RTS PC s RETURN. 
1369 sONE BIT WALKING FROM R TOL IN A FIELD OF ZEROES. 
1531 007644 012703 000401 PATR3:: MOV #401,R3 s INIT PATTERN REGISTER. 
1532 007650 WLKZRO: LET RG := R& = #2 sDECREMENT WORD COUNT. 
1533 007650 162704 000002 SUB #2,R4 
1534 007654 100404 BMI 2 :BR IF DONE. 
1535 007656 010322 MOV. R3, (R2)+4 sLOAD DATA. 
1536 007660 006303 ASL R3 sSHIFT PATTERN. 
1537 007662 005503 ADC R3 [ADD CARRY BACK INTO PATTERN. 
1538 007664 000771 BR WLKZRO :D0 1T AGAIN 
1359 007666 000207 1$: RTS PC RETURN. 
tot :ZERO BIT WALKING FROM R TOL IN A FIELD OF 1°S. 
1543 007670 012703 177376 PATR4:: MOV #177376,R3 sINIT PATTERN REGISTER. 
1544 007674 004737 007650 JSR PC,WLKZRO :GO GENERATE ;1T. 
1345 007700 000207 RTS PC s RETURN. ; 
1547 SALTERNATING ONE AND ZERO BITS WITH ALTERNATE BYTES 
Fr : COMPLEMENTED. 
1550 007702 012703 125125 PATRS:: MOV #125125,R3 sINIT PATTERN REGISTER. 
1551 007706 004737 007620 JSR PC, ZROPAT :GO GENERATE 17 
135 007712 000207 RTS  , PC RETURN. 
tb ZALTERNATING BYTES OF 000 AND 377. 
1556 007714 012703 177400 PATR6:: MOV #177400,R3 sINIT PATTERN REGISTER. 
1557 007720 1$: LET RG := RG = #2 sDECREMENT. WORD COUNT. 
1558 007720 162704 000002 SUB #2,R4 
1559 007724 100402 ; BMI 28 :BR IF DONE. 
1560 007726 010322 . MOV R3,(R2)+ :LOAD DATA. 
1561 007730 000773 BR 1$ =DO IT AGAIN. 
1362 007732 000207 . 28: RTS PC s RETURN. 
1366 ;RANDOM PATTERN GENERATOR 
1566 007734 PATR7:: LET R4 := RG = #2 :DECREMENT WORD COUNT 
1567 007734 162704 000002 SUB #2,R4 
1568 007740 100411 BMI 61T :BR IF DONE. 
1569 007742 063737 003072 003070 ADD RANS ,RANB 
1570 007750 063737 003070 003072 ADD RANB,RANS :GET NEW #. 
1571 007756 013722 003072 MOV RANS, (R2)¢ :SAVE #. 
1572 007762 000764 BR PATR? : CONTINUE. 
1373 007764 000207 GIT: RTS PC > RETURN 
1575 : NO PATTERN GENERATION. 
1576 
1577 007766 000207 PATRB:: RTS PC :RETURN, 
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1578 ; THIS SUBROUTINE INITIATES 1S04 COMMAND EXECUTION 
1579 ; AND CHECKS FOR TS04 RESPONSE. 
1580 ; INPUTS: 
1581 : OUTPUTS: 
1582 : REGISTERS: R2, R3. 
ear ; CALLS: DROPU, MOVMSG, FIRSTU, NEXTU, WSSR. 
1585 007770 EXCUTE:: LET TIME! := #1 : INIT TIMEOUT COUNTER. 
1586 007770 012737 177777 003074 MOV #-1,TIME1 
1587 007776 REPEAT sWAIT - 
1588 007776 500708: 
1589 007776 LET TIME] := TIME] - #1 ;UPDATE TIMEOUT COUNTER. 
1590 007776 005337 003074 DEC TIME 
1591 010002 1F TIME1 EQ #0 THEN :1F TIMED OUT: 
1592 010002 005737 003074 TST TIME1 
1593 010006 001011 BNE 50071$ 
1594 010010 004737 010554 JSR PC,MOVMSG MOVE CURRENT PACKET MSG. 
1595 010014 ERRDF #2,NSSRM,STAERM REPORT TS04 NOT READY 
1596 010014 104455 TRAP CSERDF 
1597 010016 000002 «WORD 2 
1598 010020 003775 .WORD NSSRM 
1599 010022 005066 WORD STAERM 
1600 010024 004737 013560 JSR PC,DROPU :DROP THE UNIT. 
1601 010030 000522 BR EXCRIN ;RETURN. 
1602 010032 ENDIF 
1603 010032 500718: 
1604 010032 UNTIL #TS.SSR SETIN @TSSR(RS)  ;WAIT UNTIL DEVICE IS READY. 
1605 010032 032775 000200 002462 BIT #TS.SSR,ATSSR(R 
1606 010040 001756 BEQ 500708 , 
1607 010042 IF CMDWRD EQ #SCH THEN :1F WE ARE DOING A SET CHAR CMD THEN: 
1608 010042 023727 003056 140004 CMP CMDWRD,#SCH 
1609 010050 001022 BNE 500728 
1610 010052 LET RSSAVE := RS SAVE CURRENT DEVICE POINTER. 
1611 010052 010537 003110 MOV RS, RSSAVE 
1612 010056 004737 013462 JSR PC, FIRSTU FIND FIRST UNIT. 
1613 010062 WHILE DEVTBL(RS) NE #END DO 
1614 010062 500738: 
1615 010062 026527 002532 177777 CMP DEVTBL(RS) ,#END 
1616 010070 001405 BEQ 50074$ 
1617 010072 004737 010520 JSR PC,WSSR WAIT FOR UNIT READY OR TIME OUT, 
1618 010076 004737 013530 JSR PC,NEXTU FIND NEXT UNIT. 
1619 010102 ENDDO 
1620 010102 000767 ; BR 500738 
1621 010104 500748: 
1622 010104 LET RS := RSSAVE RESTORE CURRENT DEVICE POINTER. 
1623 010104 013705 003110 MOV RSSAVE RS 
1624 010110 LET SCHBK := MSGPKA(RS) :SET UP ADR OF MSG PKT IN SCH BLOCK. 
1625 010110 016537 002502 002442 ‘ MOV MSGPKA(RS) , SCHBK 
1626 010116 ENDIF ; 
1627 010116 500728: 
1628 010116 LET R3 := MSGPKA(R5) :ADR OF THIS UNIT'S MSG PACKET. 
1629 010116 016503 002502 MOV MSGPKA(R5S) ,R3 
1630 010122 LET R2 := #0 :CLR COUNTER. 
1631 010122 005002 CLR R2 
1632 010124 WHILE R2 NE #MSGCNT DO :WHILE THERE ARE MORE LOCATIONS: 
1633 010124 500758: 
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000001 


003112 


002310 


172604 


002452 


002462 


GLOBAL SUBROUTINES SECTION 


LET (R3)+ := #1 
LET R2 := R2 + #2 
ENDDO 


TSTB DINT 
BNE 1$ 
1FB INTFLG(RS) GT #1 THEN 


LET TSSREG := @TSSR(R5S) 
ERRDF #15, TOOMM,STAERM 


JSR PC,DROPU 
BR EXCRIN 
ENDIF 
LET INTFLG(RS) := #0 
BIS #1E.C,CMDPKT 
1FB ERRREC EQ #0 THEN 
LET RECCNT(RS) := 
LET @DATAWT := 
ENDIF 


MOV #CMDPKT ,aTSDB(RS) 


IF #TS.SSR SETIN @TSSR(RS) THEN 


JSR  PC,MOVMSG 
ERRDF #3, TOERM,STAERM 


JSR PC,DROPU 
ENDIF 


EXCRIN: RTS PC 


RECCNT(RS) + #1 
RECCNT(R5S) 


SEQ 0080 
CMP R2,#MSGCNT 


BEQ 50076$ 
: INIT THE MSG PACKET WITH ALL 1°S 
MOV #-1,(R3)+ 


ADD #2,R2 
BR 50075$ 
50076$: 
;ARE INTERRUPTS DISABLED. 


;BR IF YES. 
:1F MORE THAN ONE INTERRUPT HAS OCCURED: 
CMPB dha sled #1 


BLE 5007 
sFREEZE THE —_—-~ STATUS REG FOR PRINT 


@TSSR(R5), TSSREG 
;REPORT TOO MANY INTERRUPTS. 
TRAP CSERDF 


“wORD TOOMM 


-WORD STAERM 
;DROP THE UNIT 
;RETURN = UNIT HAS BEEN DROPPED. 


;UPDATE COUNTER. 


50077$: 
;CLR INTERRUPT FLAG FOR THIS DEV 


;SET INT ENABLE BIT. 
71F NOT RETRYING 


CLR INTFLG(RS) 


TSTB ERRREC 
BNE 50100$ 


INC sye-¥re 
; THEN UPDATE REC COUNT TO WRITE IT ON T 
MOV RECCNT(RS) , @DATA 


50100$: 
LOAD TSDB WITH CMDPKT ADDRESS 
THIS INITIATES COMMAND t+ sadam 
:1F READY DID NOT DROP THEN 
BIT 110 a cenaatenie 


BEQ 50 
;MOVE CURRENT MESSAGE PACKET TO COMMON. 
;REPORT NO TSO4 RESPONSE. 

TRAP ees: 


- WORD 

«WORD TOERM 

-WORD STAERM 
;DROP THE UNIT 


501018: 


RETURN. 


0404 005737 003074 | TST TIME 

0410 001016 BNE 501068 

0412 LET @DATAWT := RECCNT(RS) - #1 ;RE-ADJUST REC COUNT DOWN 

0412 016577 003034 172424 MOV RECCNT(RS) ,@DATA 
0420 005377 172420 DEC @DATAWT 

0424 004737 010554 JSR PC, MOVMSG ;MOVE CURRENT MSG PACKET TO COMMON AREA, 

0430 ERRDF #4,NOINTM,STAERM [REPORT NO INTERRUPT 
0430 104455 TRAP —- CSERDF 
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1686 : THIS SUBROUTINE WAITS FOR THE TSO4 INERRUPT OR DONE BIT TO SET AND ALLOWS THE 
1687 : OPERATOR TO TRANSFER CONROL TO THE SUPERVISOR. 
1688 : UPON APPEARANCE OF THE INTERRUPT OR DONE, CHECK TSSR FOR Fg ERRORS, 
1689 : LOG BYTES AND ERRORS AND PERFORM ERROR RECOVERY IF NESSASARY. 
1690 : INPUTS: 
1691 : OUTPUTS: 
1692 ; REGISTERS: R2, R3. 
+ 44 : CALLS: DROPU, MOVMSG, RECUD, CHKERR, LOG, CLRERR. 
1695 010300 GOWAIT:: LET TIME] := #-1 INIT TIME OUT COUNTER. 
1696 010300 012737 177777 003074 MOV #-1,TIME1 
1697 010306 REPEAT REPEAT UNTIL INTERRUPT OCCURES: 
1698 010306 501028: 
1699 010306 BREAK :G0 TO THE SUPER TO ALLOW TTY INPUT. 
1700 010306 104422 TRAP C$BRK 
1701 010310 1F CMDWRD EQ #RWD THEN ;1F COMMAND WAS REWIND — 
1702 010310 023727 003056 102010 CMP CMDWRD , #RWD 
1703 010316 001014 BNE 50103$ 
1704 010320 DELAY 10. WAIT AN EXTRA MSECS EACH LOOP. 
1705 010320 012727 000012 MOV #10.,(PC)+ 
1706 010324 000000 -WORD 0 
1707 010326 013727 002116 MOV LSDLY,(PC)+ 
1708 010332 000000 -WORD 0 
1709 010334 005367 177772 DEC -6(PC) 
1710 010340 001375 BNE 74 
1711 010342 005367 177756 DEC -22(PC) 
1712 010346 001367 BNE -720 
1713 010350 ENDIF 
1714 010350 501038: 
1715 010350 1FB DINT EQ #0 THEN ;1F INTERRUPTS ARE ENABLED. 
1716 010350 105737 002210 TSTB DINT 
1717 010354 001003 BNE 50104$ 
1718 010356 LET R2 := INTFLG(RS) FETCH INTERRUPT OCCURRED FLAG. 
1719 010356 016502 003124 MOV INTFLG(RS) .R2 
1720 010362 ELSE :1F IN BRUTUS MODE: 
1721 010362 000406 BR 50105$ 
1722 010364 50104$: 
1723 010364 LET R3 := COMP #TS.SSR ;SET UP A MASK FGR THE DONE BIT. 
1724 010364 012703 000200 ‘ MOV #TS.SSR.R5 
1725 010370 005103 COM R3 
1726 010372 LET R2 := @TSSR(RS) CLR.BY R3 ;FETCH DONE BIT. 
1727 010372 017502 002462 MOV @TSSR(RS) .R2 
1728 010376 040302 BIC R3,R2 
1729 010400 ENDIF 
1730 010400 50105$: 
1731 010400 LET TIME) := TIME] - #1 ;UPDATE TIMEOUT COUNTER. 
1732 010400 005337 003074 DEC TIME 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 


0 
0 
0 
0 
0 
0 
4 
010404 If TIME] EQ #0 THEN 71F TIME OUT HAS OCCURRED: 
0 
0 
0 
0 
0 
0 
0 
0 


-ruwnw 
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1742 010432 000004 -WORD 4 

1743 010434 004125 «WORD NOINTM 
1744 010436 005066 «WORD STAERM 
1745 010440 004737 013560 JSR PC,DROPU ;DROP THE UNIT. 

1746 010444 000412 = mit GOWRTN ;RETURN. 


50106$: 
1749 010446 UNTIL R2 NE #0 REPEAT UNTIL INTERRUPT OR READY OCCURES. 
50 010446 005702 TST R2 


17 

1751 010450 001716 BEQ 501028 
1752 010452 004737 010554 JSR PC ,MOVMSG ;MOVE CURRENT MSG. PACKET TO COMMON AREA. 
1753 010456 004737 010640 JSR PC,RECUD [UPDATE THE RECORD COUNT. 

1754 010462 004737 011004 JSR PC,.CHKERR ; CHECK FOR STATUS ERRORS. 

1755 010466 004737 012150 JSR PC,LOG [LOG BYTES AND ERRORS. 

1756 010472 GOWRTN: LET R3 := #ENDERF 

1757 010472 012703 003124 MOV WENDERF ,R3 
1758 010476 004737 010504 JSR PC,CLRERR CLEAR ALL ERROR FLAGS 

1759 010502 000207 RTS PC ;RETURN IF DONE. 
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1760 3 a TO CLEAR FLAGS. 
1761 : INPUTS: R3 = LWA TO BE CLEARED + 2. 
1762 3 SUTbUTS: 
1763 ; REGISTERS: R2 
1764 ; CALLS: 
1765 
1766 010504 CLRERR:: LET R2 := #BGNFLG 
1767 010504 012702 003114 MOV #BGNFLG,R2 
1768 010510 REPEAT 
1769 010510 50107$: 
1770 010510 LET (R2)+ := #0 
1771 010510 005022 CLR (R2)+ 
1772 010512 UNTIL R2 EQ R3 
1773 010512 020203 CMP R2,R3 
1774 010514 001375 BNE 50107$% 
1775 010516 000207 RTS PC 
1776 
1777 
1778 
1779 ; SUBROUTINE TO WAIT UNTIL CURRENT UNIT IS READY OR UNTIL TIME OUT. 
1780 ; INPUTS: 
1781 ; OUTPUTS: 
1782 ; REGISTERS: 
1783 ; CALLS: 
1784 
1785 010520 WSSR:: LET TIME := #-1 s INIT TIMEOUT COUNTER. 
1786 010520 012737 177777 003074 MOV #-1, TIME] 
1787 010526 REPEAT sREPEAT UNTIL DEV READY OR TIMEOUT: 
1788 010526 il 501108: 
1789 010526 — BREAK ;BREAK TO THE SUPERVISOR. 
1790 010526 104422 TRAP C$BRK 
1791 010530 LET TIME] := TIME! - #1 sUPDATE TIMEOUT COUNTER. 
1792 010530 005337 003074 DEC TIME] 
1793 010534 UNTIL #TS.SSR SETIN @TSSR(RS) OR TIME] EQ #0 
1794 010534 032775 000200 002462 BIT #TS.SSR,ATSSRIRS 
1795 010542 001003 BNE 501118 
1796 010544 005737 003074 TST TIME) 
1797 010550 001366 BNE 50110$ 
1798 010552 501118: 
1799 sREPEAT UNTIL DEV READY OR TIMEOUT. 
1800 010552 000207 RTS PC RETURN, 
1801 
1803 . 
1804 ; SUBROUTINE TO MOVE THE CURRENT MESSAGE PACKET TO THE COMMON AREA AND 
1805 : TO UPDATE THE CURRENT TERMINATION CLASS CODE. 
806 : INPUTS: 
1807 : OUTPUTS: 
1808 : REGISTERS: R2, R3. 
+e ; CALLS: 
1811 010554 MOVMSG:: LET TSSREG := aTSSR(RS) sFREEZE THE STATUS REG CONTENTS 
1812 010554 017537 002462 003112 MOV @TSSR(RS) ,TSSREG 
1813 010562 LET R2 := TSSREG CLR.BY #TSC.TCC ;EXTRACT THE TERMINATION CLASS CODE, 
1814 010562 013702 003112 MOV TSSREG, R2 
1815 010566 042702 177761 BIC #1SC. TCC, Re 


GLOBAL AREAS MACY11 30(1046) 24-AUG-79 09:10 PAGE 48 
CZTSHB.P11 24-AUG-79 09:08 GLOBAL SUBROUTINES SECTION SEQ 0084 


1816 010572 LET CTICC := R2 SHIFT -1+ ;AND SAVE IT 
1817 010237 003106 MOV rT I 


1818 006237 003106 ASR 
LET R3 z= MSGPKA(RS) sADR OF THIS DEVICE'S MSG. 
016503 002502 MOV MSGPKA(R5) ,R3 
LET R2 := #0 :CLR COUNTER. 
005002 CLR R2 
WHILE R2 NE #MSGCNT DO WHILE THERE rae 


020227 000016 CMP R2,#MSGCNT 
50113$ 


001405 BE 
LET MSGPKT(R2) := (R3)+ ;MOVE MSG TO COMMON AREA. 
012362 002334 MOV (R3)+,MSGPKT(R2) 
LET R2 := R2 + #2 ;UPDATE COUNTER. 
062702 000002 #2,R2 
ENDDO 
000770 B 501128 
501138: 
LET EOTFLG(RS) := MSGPKT+MS.XSO ;MOVE XSTATO TO EOT FLAG. 
013765 902342 003134 0 MSGPKT+*MS.XSO,E0 
000207 RTS PC 
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1837 ; SUBROUTINE TO ADJUST THE RECORD COUNT. 
1838 3 INPUTS: 
1839 3 OUTPUTS: 
1840 ; REGISTERS: 
ee : CALLS: 
1843 010640 RECUD:: IFB RECLOG EQ #0 THEN s1F RECORD HAS NOT BEEN LOGGED: 
1844 010640 105737 003116 TSTB RECLOG 
1845 010644 001056 BNE 50114$ 
1846 010646 LET RECCNT(RS) := RECCNT(RS) - #1 
1847 010646 005365 003034 DEC RECCNT(RS) 
1848 010652 1F #BITO NOTSETIN CTCC AND #X2.0PM SETIN MSGPKT+MS.XS2 THEN ;1F TAPE MOVED T 
1849 010652 032737 000001 003106 BIT #BITO,CTCC 
1850 010660 001045 BNE 50115$ 
1851 010662 032737 100000 002346 BIT #X2.0PM,MSGPKT+M 
1852 010670 001441 BEQ 50115$ 
1853 910672 LET RECLOG :B= RECLOG + #1 ;SET RECORD LOGGED, 
1854 010672 105237 003116 INCB RECLOG 
1855 010676 IF CMDWRD EQ #RWD THEN s1F THIS IS A REWIND CMD: 
1856 010676 023727 003056 102010 CMP CMDWRD , #RWD 
1857 010704 001003 a BNE 50116$ 
1858 010706 LET RECCNT(RS) := #0 CLEAR RECORD COUNT, 
1859 010706 005065 003034 - CLR RECCNT(RS) 
1860 010712 ELSE 
1861 010712 000430 BR 50117$ 
1862 010714 501168: 
1863 010714 IF #BRF.C SETIN CMDWRD THEN :1F BRF USED, UPDATE RECORD COUNT. 
1864 010714 032737 004000 003056 BIT #BRE .C, CMDWRD 
1865 010722 001424 BEQ 50120$ 
1866 010724 1F #MOD.CO NOTSETIN CMDWRD THEN ;IF A FORWARD CMD: 
1867 010724 032737 000400 003056 BIT 4 SS ima 
1868 010732 001007 ; BNE 501 oe 
1869 010734 If #MOD.CO NOTSETIN PCMDWD THEN ;1F PREV CMD WAS A FWD ALS 
1870 010234 032737 000400 003062 BIT #MOD. C0, PCMDWD 
1871 010742 001002 BNE 501228 
1872 010744 LET RECCNT(RS) := RECCNT(RS) + #1 ; INCREMENT RECORD COUNT. 
1873 , 010744 005265 003034 INC RECCNT(RS) 
1874 010750 ENDIF 
1875 010750 50122$: 
1876 010750 ELSE :1F REVERSE CMD: 
1877 010750 000411 BR 50123$ 
1878 010752 501218: 
1879 010752 IF #MOD.CO SETIN PCMDWD THEN ;1F PREVIOUS CMD WAS A REV ALSO: 
1880 010752 032737 000400 003062 BIT #MCD.CO,PCMDWD 
1881 010760 001405 e BEQ 501248 
1882 010762 IF RECCNT(RS) NE #0 THEN INSURE A POSITIVE COUNT. 
1883 010762 005765 003034 TST RECCNT(RS) 
1884 010766 001402 BEQ 501258 
1885 010770 LET RECCNT(RS) := RECCNT(RS) - #1 ;sDECREMENT RECORD COUNT. 
1886 010770 005365 003034 DEC RECCNT(RS) 
1887 010774 ENDIF 
1888 010774 501258: 
1889 010774 ENDIF 
1890 010774 501248: 
1891 010774 ENDIF 
1892 010774 501238: 
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1893 010774 ENDIF 
1894 010774 501208: 
1895 010774 ENDIF 
1896 010774 501178: 
1897 010774 ENDIF 
1898 010774 501158: 
1899 010774 LET @DATAWT := RECCNT(RS) 
1900 010774 016577 003034 172042 MOV RECCNT(R5S) ,@DATA 
1901 011002 ENDIF 
1902 011002 501148: 
1903 011002 000207 RTS PC ;RETURN. 
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1904 ; THIS IS THE ERROR CHECK SUBROUTINE. wren INTERRUPT THIS 
1905 : SUBROUTINE 1S CALLED TO CHECK THE 1S04 TUS. 
1906 : 1F SPECIAL COND IS SET THEN THE TCC MANDL ING SUBROUTINE 1S ENTERED. 
1907 ; 1f THE RFC IS NON ZERO FOR A COMMAND REQUIRING A BPCR 
1908 ; THEN AN ERROR RFC !S REPORTED, 
1909 : INPUTS: 
1910 : OUTPUTS: 
1911 ; REGISTERS: R2, 
a ; CALLS: 1eeOe tecr. 
1914 011004 CHKERR:: IF #T1S.SC SETIN TSSREG THEN :1f SPECIAL COND STATUS 1s SET THEN:. 
1915 011004 032737 100000 003112 BIT #TS.SC, TSSREG 
1916 011012 001441 BEQ 501268 
1917 011014 IF CTCC NE #2 THEN :1F TCC 1S NOT 2 THEN: 
1918 011014 023727 003106 000002 CMP CTCC, #2 
1919 011022 001405 BEQ 50127$ 
1920 011024 1FB ERRREC EQ #0 THEN :I1F NOT IN ERROR RECOVERY: 
1921 011024 105737 003122 TSTB ERRREC 
1922 011030 001002 BNE 50130$ 
1923 011032 005265 002774 INC SCCNT(RS) sINC SC COUNTER. 
1924 011036 ENDIF 
1925 011036 501308: 
1926 011036 ENDIF 
1927 011036 501278: 
1928 011036 IF #TS.NXM SETIN TSSREG OR #TS.UPE SETIN TSSREG THEN ;WHEN NON-EXISTANT MEMO 
1929 011036 032737 004000 003112 . BIT #TS.NXM, TSSREG 
1930 011044 001004 BNE 501318 
1931 011046 032737 040000 003112 BIT #1S.UPE,TSSREG 
1932 011054 001412 BEQ 501328 
1933 011056 501318: 
1934 011056 IF #X2.0PM NOTSETIN MSGPKT*MS.XS2 THEN :AND TAPE NOT MOVED 
1935 011056 032737 100000 002346 BIT #X2.0PM,MSGPKT+M 
1936 011064 001003 BNE 501338 
1937 011066 LET R2 := #5 :SET TCCS INDEX 
1938 011066 012702 000005 MOV #5,R2 
1939 011072 ; ELSE 
1940 011072 000402 BR 501348 
1941 011074 50133$: 
1942 011074 LET R2 := #4 :TAPE MOVED, SET TCC4 INDEX 
1943 011074 012702 000004 MOV #4 ,R2 
1944 011100 ENDIF 
1945 011100 501348: 
1946 011100 ELSE 
1947 011100 000402 Ba 501358 
1948 011102 501328: 
1949 011102 LET R2 := CICC :SET DETECTED TCC INDEX 
1950 011102 013702 003106 MOV CTCC,R2 
1951 011106 ENDIF 
1952 011106 501358: 
1953 011106 LET R2 := R2 SHIFT 1 ;CURRENT TCC X 2. 
954 011106 006302 ASL R2 
1955 011110 004772 011210 JSR PC, @TCCRA(R2) :GO TO THE TCC HANDLING SUBROUTINE. 
1956 011114 ELSE 
1957 011114 000426 BR 501368 
1958 011116 501268: 
1959 011116 If #BRE.C SETIN CMDWRD THEN ;1F BRE IS USED IN THIS CMD THEN: 


Cm 
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1960 011116 032737 004000 003056 BIT #BRF .C, CMDWRD 
1961 011124 001422 BEQ 501378 
1962 011126 IF MSGPKT#MS.RFC NE #0 THEN ;1F THERE IS AN RFC THEN: 

1963 011126 005737 002340 TST MSGPKT¢MS RFC 
1964 011132 001417 BEQ 50140$ 
1965 011134 1FB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 

1966 011134 105737 003145 TSTB ——- RANDOM 
1967 011140 001403 BEQ 501418 
1968 011142 105737 003146 TSTB VF YFLG 
1969 011146 001411 BEQ 501428 
1970 011150 501418: 

1971 :1F NOT IN RANDOM OR IF CMD IS WTv: 
1972 011150 IFB IRE €Q #0 THEN :1F REC ERROR REPORTS ARE ALLOWED: 
1973 011150 105737 003151 TSTB IRE 

1974 011154 001006 BNE 50143$ 
1975 011156 LET HRDCNT(RS) := HRDCNT(RS) + #1 [UPDATE HARD ERROR COUNT 
1976 011156 005265 003014 INC HRDCNT (RS) 
1977 011162 ERRHRD #13,RFCERM,STAERM :REPORT RFC ERROR 

1978 011162 104456 TRAP —- CSERHRD 
1979 011164 000015 «WORD 13 

1980 011166 003760 “WORD = RECERM 
1981 011170 005066 “WORD STAERM 
1982 011172 ENDIF 

1983 011172 501438: 

1984 011172 ENDIF 

1985 011172 501428: 

1986 011172 ENDIF 

1987 011172 50140$: 

1988 011172 ENDIF 

1989 011172 | 501378: 

1990 011172 | ENDIF 

1991 011172 50136$: 

1992 011172 . 1FB RWERR NE #0 THEN :1F A READ/WRITE ERROR HAS OCCURRED THEN: 
1993 011172 105737 003120 TSTB.—s- RWERR 
1994 011176 001403 } BEQ 50144$ 
1995 011200 LET CMDPKT := CMDSAV ;RESTORE CMD PACKET AFTER ERROR RECOV. 
1996 011200 013737 003060 002310 MOV CMDSAV, CMDPKT 
1997 011206 ENDIF 

1998 011206 501448: 

1999 011206 000207 RTS PC RETURN. 

2001 ; ADDRESSES OF TCC HANDLING ROUTINES FOR TERMINATION CLASS CODES 0 - 7. 
2003 011210 011230 TCCRA: TCCO 

2004 011212 011246 TCC1 

2005 011214 011264 TCC2 

2006 011216 011374 TCC3 

2007 011220 011412 TCC4 

2008 011222 011544 TCC5 

2009 011224 011642 TCC6 

2010 011226 012004 TCC7 
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2011 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 0, UNDEFINED SPECIAL 

2012 3 fowiae ERROR. 

2013 : INPUTS: 

2014 ; OUTPUTS: 

2015 : REGISTERS: 

ig ; CALLS: 

2018 011230 TCCO:: LET HRDCNT(RS) := HRDCNT(RS) + #1 ;UPDATE HARD ERROR COUNT. 

2019 011230 005265 003014 INC HRDCNT (RS) 
2020 011234 ERRHRD #5,SCERM,STAERM ;REPORT SPECIAL CONDITION ERROR. 

2021 011234 104456 TRAP CSERHRD 
2022 011236 000005 «WORD 5 

2023 011240 003734 «WORD SCERM 
2024 011242 005066 -WORD STAERM 
2025 011244 000207 RTS PC sRETURN. ; 

2026 

2027 

2028 

2029 

2030 ‘ 

2031 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 1, ATTENTION CONDITION. 
2032 ; THIS TCC INDICATES THAT THE DRIVE HAS UNDERGONE A STATUS CHANGE 

2033 : SUCH AS GOING OFFLINE OR COMING ONLINE. 

2034 : INPUTS: 

2035 : OUTPUTS: 

2036 ; REGISTERS: R2,R4 

ahd : CALLS: DROPU 

2039 011246 TCC1:: ERRDF #6,ATTNM,STAERM REPORT ATTENTION-UNIT OFF LINE. 

2040 011246 104455 TRAP CSERDF 
2041 011250 000006. __ -WORD 6 

2042 011252 004041 -WORD ATTNM 
2063 011254 005066 ~WORD STAERM 
2044 011256 004737 013560 JSR PC,DROPU ;DROP THE UNIT. 

2045 011262 000207 RTS PC ‘RETURN. ~ 
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2046 : SUBROUTINE TO HANDLE TERMINATION CLASS CODE 2, TAPE STATUS ALERT. 

2047 : A STATUS CONDITION HAS BEEN ENCOUNTERED THAT MAY HAVE SIGNIFICANCE 

2048 : TO THE PROGRAM. BITS OF INTEREST INCLUDE TMK, RLS, LET, RLL, BOT, EOT. 
2049 ; INPUTS: 

2050 3 OUTPUTS: 

2051 3 REGISTERS: 

onze 3 CALLS: 

2054 011264 TCC2:: 1F #X0.BOT SETIN MSGPKT+MS.XSO ANDB EXPBOT NE #0 THEN 

2055 011264 032737 000002 002342 BIT #X0.BOT ,MSGPKT+M 
2056 011272 001404 BEQ 50145$ 
2057 011274 105737 . 003144 TSTB EXPBOT 
2058 011300 001401 BEQ 50145$ 
2059 ;1f AT BOT AND BOT IS EXPECTED: 

2060 011302 000433 BR TC2RTN sRETURN-TCC2 CAUSED BY EXPECTED BOT. 
2061 011304 ENDIF 

2062 011304 501458: 

2063 011304 IF #XO.RLS!XO.RLL!XO.TMK!XO.LET!XO0.BOT SETIN MSGPKT+MS.XSO THEN 

2064 011304 032737 170002 002342 BIT #XO.RLS!XO.RLLIX 
2065 011312 001427 BEQ 50146$ 
2066 ‘ s1F TCC2 CAUSED BY ANYTHING BUT EOT: 
2067 011314 1FB RANDOM EQ #0 ORB VFYFLG NE #0 THEN 

2068 011314 105737 003145 TSTB RANDOM 
2069 011320 001403 BEQ 50147$ 
2070 011322 105737 003146 TSTB VFYFLG 
2071 011326 001421 BEQ 50150$ 
2072 011330 501478: 

2073 :1F NOT IN RANDOM OR IF CMD IS WTV: 
2074 011330 1FB IRE EQ #0 THEN s1F RFC ERROR — ARE ALLOWED: 
2075 011330 105737 003151 TSTB IRE 

2076 011334 001016 BNE 50151$ 
2077 011336 IFB ERRREC NE #0 THEN :1F WE ARE IN ERROR RECOVERY THEN: 
2078 011336 105737 003122 TSTB ERRREC 
2079 011342 001403 BEQ 501528 
2080 011344 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE FLAG FOR LOG. 
2081 011344 105237 003121 INCB UNREC 

2082 011350 ; ELSE sELSE - IF NOT IN ERROR RECOVERY: 
2083 011350 000402 BR 50153$% 
2084 011352 501528: 

2085 011352 LET SCCNT(RS) := SCCNT(RS) + #1 ; INCREMENT THE SPEC COND COUNTER. 
2086 011352 005265 0062774 INC SCCNT(RS) 
2087 011356 ENDIF 

2088 011356 501538: 

2089 011356 LET HRDCNT(RS) := HRDCNT(RS) + #1 sUPDATE HARD ERROR COUNT. 
2090 011356 005265 003014 INC HRDCNT (RS) 
2091 911362 ERRHRD #7,TSAM,STAERM ;REPORT TAPE STATUS ALERT. 

2092 011362 104456 TRAP CSERHRD 
2093 011364 000007 «WORD 7 

2094 011366 004142 “WORD TSAM 

2095 011370 005066 -WORD STAERM 
2096 011372 ENDIF 

2097 011372 501518: 

2098 011372 ENDIF 

2099 011372 501508: 

2100 011372 -ENDIF 

2101 011372 501468: 
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gi0e 011372 000207 TC2RTN: RTS PC ;RETURN. 
2104 
2105 
198 
2108 : SUBROUTINE TO HANDLE TERMINATION CLASS CODE 3, FUNCTION REJECT. 
2109 : THE {PECIFIED FUNCTION WAS NOT INITIATED. BITS OF INTEREST ARE 
2110 ; RMR, OFL, VCK, BOT, ILC, WLE, ILA, AND NBA, 
2111 : INPUTS: 
2112 ; OUTPUTS: 
2113 3 REGISTERS: R2,R4 
sie ; CALLS: DROPU 
2116 011374 TCC3:: ERRDE #8,FUNRM,STAERM REPORT FUNCTION REJECT. 
2117 011374 104455 TRAP CSERDF 
2118 011376 000010 «WORD 8 
2119 011400 004057 ~WORD FUNRM 
2120 011402 005066 «WORD STAERM 
2121 011404 004737 013560 JSR PC, DROPU DROP THE UNIT. 
2122 011410 000207 RTS PC ;RETURN. 
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2128 

2129 

2130 

2131 

2132 011412 
2133 011416 
2134 011416 
2135 011424 
2136 011426 
2137 011426 
2138 011432 
2139 011434 
2140 011434 
2141 011440 
2142 011442 
2143 011442 
2144 011450 
2145 011450 
2146 011450 
2147 011450 
2148 011450 
2149 011450 
2150 011454 
2151 011456 
2152 011462 
2153 011464 
2154 011464 
2155 011466 
2156 011470 
2157 011472 
2158 011474 
2159 011474 
2160 011474 
2161 011474 
2162 011500 
2163 011500 
2164 011506 
2165 011506 
2166 011512 
2167 011514 
2168 011514 
2169 011520 
2170 011520 
2171 011522 
2172 011524 
2173 011530 
2174 011534 
2175 011534 
2176 011536 
2177 011536 
2178 011536 
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001000 
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002310 
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TCC4:: 


SEQ 0092 


SUBROUTINE TO HANDLE TERMINATION CLASS CODE 4, REC 
TAPE POSITION 1S ONE RECORD BEYOND WHAT ITS POSITI 
THE FUNCTION WAS INITIATED. RECOVERY PROCEDURE IS 
we. ISSUE THE APPROPRIATE RETRY COMMAND. 


OVERABLE ERROR. 
ON WAS WHEN 
TO LOG THE 


OUTPUTS: 

REGISTERS: R2,R4, 

CALLS: RTILE, EXCUTE, GOWAIT, DROPU 

JSR PC,R ;CHECK FOR RETRY LIMIT EXCEEDED. 


TLE 
1F CMDLG' GT #2 THEN ;1F READ CMD THEN: 


CMP CMDLG,#2 


BLE 50154$ 
;R2=READ RETRY COUNT LIMIT / 2 
MOV + nee 


ASR 
71F RETRY COUNT IS MORE THAN HALF LIMIT: 
CMP RETRYC,R2 
BLT 50155$ 
LET CMDPKT := CMDPKT SET.BY #OPP.C ;SET OPPOSITE BIT FOR RETRY2. 
DIF BIS #OPP.C,CMDPKT 
EN 


LET R2 := WRRECL SHIFT -1 


If RETRYC GE R2 THEN 


50155$: 
ENDIF 
501548: 
IF RETRYC EQ #0 ANDB ERCVER NE #0 THEN ;IF THIS IS THE ORIGINAL ERROR THEN: 
TST RETRYC 
BNE 50156$ 
TSTB ERCVER 
BEQ 50156$ 
ERRSOFT #9,RERM,STAERM sREPORT RECOVERABLE ERROR 
TRAP CSERSOFT 
WORD 9 
~ WORD RERM 
0 STAERM 


ENDIF 

LET RETRYC := RETRYC + #1 
LET CMDPKT := CMDPKT SET.BY #MOD.C1 
1FB IREC EQ #0 THEN ;1F ERROR RECOVERY eau 


«WORD T 
PROVIDED OPERATOR HAS ENABLED THE REPORT 
501568: 
UPDATE RETRY COUNT. 
RETRYC 


INC 
;SET RETRY BIT IN CMD PACKET. 
BIS #MOD.C1,CMDPKT 


IREC 
BNE 501578 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY FLAG. 
NCB ERRREC 
POP R2,R2 ;POP 2 RTN ADRS FROM STACK. 
MOV (SP)+,R2 
(SP)+,Re 


MOV 
JSR PC, EXCUTE :GO EXECUTE THE RETRY COMMAND. 


JMP GOWAIT G0 WAIT FOR INTERRUPT * CHECK STATUS. 
ELSE sELSE IF ERROR RECOVERY IS NOT ENABLED: 
BR 50160% 
501578: 
LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
, INCB UNREC 
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2179 011542 ENDIF 
2180 011542 50160$: 
;RETURN 


4 
2181 011542 000207 RTS PC 
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004737 
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001004 
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; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 5, RECOVERABLE ERROR. 
; TAPE POSITION HAS NOT CHANGED. RECOVERY PROCEDURE IS TO LOG THE 
: ERROR AND RE-ISSUE THE ORIGINA! COMMAND. 
; INPUTS: 
3 OUTPUTS: 
3 REGISTERS: R2,R4. 
; CALLS: RTILE, EXCUTE, GOWAIT, DROPU. 
TCC5:: JSR PC,RTLE :CHECK FOR RETRY LIMIT EXCEEDED 
1F RETRYC EQ #0 THEN :1F THIS 1S THE ORIGINAL ERROR THEN: 
TST RETRYC 
BNE 50161$ 
ERRSOFT #10,RERM,STAERM ;REPORT RECOVERABLE ERROR. 
TRAP CSERSOFT 
WORD 10 
» WORD RERM 
WORD STAERM 
ENDIF 
501618: 
LET RETRYC := RETRYC + 41 sUPDATE RETRY COUNTER. 
INC RETRYC 
1FB IREC EQ #0 THEN ;1F ERROR RECOVERY IS ENABLED: 
TSTB —sIREC 
BNE 501628 
LET ERRREC :B= ERRREC + #1 ;SET ERROR RECOVERY om enanec 
LET RECCNT(RS) := RECCNT(RS) + #1 sUPDATE REC COUNT 
INC ‘RECCNT(RS) 
LET Q@DATAWT := RECCNT(RS) ;AND INSERT IT INTO WRT BFR 
MOV RECCNT(RS) ,@DATA 
POP R2,R2 ;POP 2 RTN ADRS FROM STACK. 
MOV (SP)+,R2 
MOV (SP)+,R2 
JSR PC,EXCUTE :G0 RE-ISSUE THE COMMAND. 
JMP GOWAIT :G0 WAIT FOR’ INTERRUPT + CHECK STATUS. 


ELSE ELSE IF ERROR RECOVERY 4 NOT ENABLED: 


50163% 


501628: 
SET UNRECOVERABLE — 


501638: 


LET UNREC :B= UNREC + #1 
ENDIF 
RTS PC 


UNRE C 


;RETURN. 


GLOBAL AREAS MACY11 30(1046) 24-AUG-79 09:10 PAGE 59 

CZ1SHB.P11 24-AUG-79 09:08 GLOBAL SUBROUTINES SECTION SEQ 0095 
2227 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 6, UNRECOVERABLE ERROR. 
2228 : TAPE POSITION HAS BEEN LOST. THE ONLY VALID RECOVERY PROCEDURE 
2229 : 1S TO REWIND AND START OVER AT BOT UNLESS THE TAPE HAS LABELS OR 
2230 ; SEQUENCE NUMBERS. THIS DIAGNOSTIC WILL REWIND AND RETRY THE 
2221 ; COMMAND ONLY IF DENSITY CHECK IS SET, OTHERWISE THE UNIT WILL BE 
2232 : DROPPED FROM THE TEST SEQUENCE. 
2233 ; INPUTS: 
2234 : OUTPUTS: 
2235 : REGISTERS: R2, R4 
$338 ; CALLS: RTLE, WSSR, EXCUTE, GOWAIT, DROPU 
2238 011642 TCC6:: IF X3.DCK NOTSETIN MSGPKT+#MS.XS3 THEN 
2239 011642 033737 000010 002350 BIT X3.DCK ,MSGPKT+MS 
2240 011650 001016 BNE 50164$ 
2241 :1f THERE 1S NO DENSITY CHECK THEN: 
2242 011652 IF CMDLG NE #0 THEN s1F CMD 1S A READ OR WRITE THEN: 
2243 011652 005737 003064 TST CMDLG 
2244 011656 001404 BEQ 50165$ 
2245 011660 LET RWERR :B= RWERR + #1 SET RD/WR ERROR FLAG, 
2246 011660 105237 003120 INCB RWERR 
2247 011664 LET UNREC :B= UNREC + #1 :SET UNRECOVERABLE ERROR FLAG. 
2248 011664 105237 003121 INCB UNREC 
2249 011670 ENDIF ; 
2250 011670 501658: 
2251 011670 ERRDF #11,URERM,STAER™ :REPORT UNRECOVERABLE ERROR. 
2252 011670 104455 TRAP CSERDF 
2253 011672 000013 . WORD 11 
2254 011674 004276 | -WORD URERM 
2255 011676 005066 .WORD STAERM 
2256 011700 004737 013560 JSR PC,DROPU :REPORT ERROR + DROP UNIT 
2257 011704 ELSE ZELSE-1F THERE IS DENSITY CHECK: 
2258 011704 000436 id BR 501668 
2259 011706 i §0164$: 
2260 011706 004737 012022 JSR PC,RTLE :CHECK FOR RETRY LIMIT EXCEEDED. 
2261 011712 IF RETRYC EQ #0 THEN :1F THIS IS THE ORIGINAL ERROR THEN: 
2262 011712 005737 003114 TST RETRYC 
2263 011716 001004 BNE 50167$ 
2264 011720 ERRSOFT #11,URERM,STAERM :REPORT DENSITY CHECK ERROR. 
2265 011720 104457 : TRAP CSERSOFT 
2266 011722 000013 WORD 11 
2267 011724 004276 WORD URERM 
2268 011726 005066 .wORD STAERM 
2269 011730 ENDIF 
2270 011730 50167$: 
2271 011730 LET RETRYC := RETRYC + #1 ;UPDATE RETRY COUNT. 
2272 011730 005237 003114 INC RETRYC 
2273 011734 IFB IRE EQ #0 THEN :1F ERROR RECOVERY IS ENABLED THEN: 
2274 011734 105737 003151 ° TSTB IRE 
2275 011740 001016 BNE 50170$ 
2276 011742 LET ERRREC :B= ERRREC + #1 :SET ERROR RECOVERY FLAG, 
2277 011742 105237 003122 INCB ERRREC 
2278 011746 LET @TSDB(RS) := #RWCPK s1SSUE A REWIND COMMAND, 
2279 011746 012775 002330 002452 MOV #RWOPK ,aTSDB(RS) 
2280 011754 004737 010520 JSR PC,WSSR ;WAIT FOR SUBSYSTEM READY, 
2281 011760 POP R2,R2 “POP 2 RIN ADR'S FROM STACK, 
2282 011760 


012602 MOV (SP)*,R2 
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2283 011762 012602 MOV (SP)+,R2 
2284 011764 004737 007770 JSR PC, EXCUTE REISSUE THE COMMAND, 
2285 011770 000137 010300 JMP GOWAIT ;WAIT FOR INTERRUPT 
2286 011774 _ ELSE sELSE-IF ERR REC DISABLED: 
2287 011774 000402 BR 50171$ 
2288 011776 501708: 
2289 011776 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE ERROR FLAG. 
2290 011776 105237 003121 INCB UNREC 
2291 012002 ENDIF : 
2292 012002 50171$: 
2293 012002 ENDIF ; 
2294 012002 501668: 
012002 000207 RTS PC ; RETURN 
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2296 ; SUBROUTINE TO HANDLE TERMINATION CLASS CODE 7, FATAL SUBSYSTEM 

2297 ; ERROR. THE SUBSYSTEM 1S INCAPABLE OF PROPERLY PERFORMING 

2298 5 COMMANDS OR AT LEAST ITS INTEGRITY IS SERIOUSLY QUESTIONABLE. 

2299 ; REFER TO THE FATAL CLASS CODE FIELD IN THE TSSR REGISTER FOR 

2300 ; ADDITIONAL INFORMATION JN THE TYPE OF FATAL ERROR. 

2301 ; INPUTS: 

2302 3 OUTPUTS: 

2303 : REGISTERS: R2, R4 

Sipe : CALLS: 

2306 012004 1CC7:: ERRDE #12,FATSM,STAERM REPORT FATAL SUBSYSTEM ERROR. 

2307 012004 104455 TRAP CSERDF 
2308 012006 000014 «WORD 12 
2309 012010 004077 «WORD FATSM 
2310 012012 005066 ~-WORD STAERM 
2311 012014 004737 013560 JSR PC,DROPU DROP THE UNIT. 

2312 012020 000207 RTS PC sRETURN. 

2313 

2314 

2315 
.2316 s SUBROUTINE TO CHECK FOR RETRY LIMIT EXCEEDED. PRINTS ERROR MESSAGE 
2317 ; IF EXCEEDED AND DROP UNIT UNLESS COMMAND IS A READ. 

2318 : INPUTS: 

2319 : OUTPUTS: 

2320 : REGISTERS: R2, R4. 

ses ; CALLS: DROPU 

2323 012022 RTLE:: IF CMDLG EQ #0 THEN :1F CMD IS NOT A READ OR WRITE THEN: 
2324 012022 005737 003004 TST CMDLG 
2325 012026 001010 : . BNE 50172$ 
2326 012030 ERRDF #11,URERM,STAERM REPORT UNRECOVERABLE ERROR. 

2327 012030 104455 TRAP CSERDF 
2328 012032 000013 WORD 11 
2329 012034 004276 -WORD  URERM 
2330 012036 005066 -WORD STAERM 
2331 012040 004737 013560 JSR PC,DROFU DROP THE UNIT. 

2332 012044 POP R2 

2333 012044 012602 MOV (SP)+,R2 
2334 012046 000437 BR RTLRIN _ AND RETURN. 

2335 012050 ENDIF 

2336 012050 501728: 

2337 012050 LET RWERR :B= RWERR + #] SET READ/WRITE ERROR FLAG. 

2338 012050 105237 003120 INCB RWERR 
2339 012054 IF CMDLG EQ #2 THEN :1F CMD 1S A WRT OR WIM: 

2340 012054 023727 003064 000002 CMP CMDLG,#2 
2341 012062 001016 BNE 50173$ 
2342 012064 IF RETRYC £Q #WRECL THEN :1F RETRY COUNT HAS SEacne® LIMIT 

2343 012064 023727 003114 000020 RETRYC, MWRECL 
2344 012072 001011 =« Hag 50174% 
2345 012074 LET UNREC :B= UNREC + #1 SET UNRECOVERABLE FLAG 

2346 012074 105237 003121 INCB UNREC 
2347 012100 ERRDF #14,RLEXM,STALRM REPORT RETRY LIMIT EXCEEDED. 

2348 012100 104455 TRAP CSERDF 
2349 012102 000016 «WORD 14 
2350 012104 004014 ~wORD RLEXM 
2351 012106 005066 ~WORD STAERM 
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2352 012110 004737 013560 JSR PC,DROPU ;DROP THE UNIT. 
2353 012114 POP R2 
2354 012114 012602 _ MOV (SP)+*,R2 
2355 012116 "ENDIF 
2356 012116 ‘ 50174$: 
2357 012116 ELSE ELSE - CMD IS A READ: 
2358 012116 000413 BR 50175$ 
2359 012120 50173$: 
2360 012120 IF RETRYC EQ #RRECL THEN 71F RETRY COUNT HAS REACHED LIMIT: 
2361 012120 023727 003114 000020 CMP RETRYC ,#RRECL 
2362 012126 001007 BN 50176$ 
2363 012130 LET UNREC :B= UNREC + #1 ;SET UNRECOVERABLE FLAG 
2364 012130 105237 003121 INCB UNREC 
2365 012134 ERRHRD #14,RLEXM,STAERM REPORT RECOVERABLE ERROR. 
2366 012134 104456 TRAP CSERHRD 
2367 012136 000016 -WORD 14 
2368 012140 004014 «WORD RLEXM 
2369 012142 005066 «WORD STAERM 
2370 012144 POP R2 
2371 012144 012602 MOV (SP)+,R2 
2372 012146 ENDIF 
2373 012146 501768: 
2374 012146 ENDIF 
2375 012146 50175$: 
2376 012146 000207 RTLRIN: RTS PC ;RETURN 
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2377 ; SUBROUTINE TO LOG BYTES READ/WRITTEN. 
2378 ; ALSO UPDATES READ/WRITE ERROR COUNTERS. 
2379 ; INPUTS: 
2380 : OUTPUTS: 
2381 ; REGISTERS: R2, R3, RO. 
seat ; CALLS: 
2384 012150 LOG::  IFB ERLOG EQ #0 THEN :1f DATA AND ERRORS HAVE NOT BEEN LOGGED THEN: 
2385 012150 105737 003117 1STB ERLOG 
2386 012154 001126 BNE 50177$ 
2387 012156 LET ERLOG :B= ERLOG + #1 7SET LOG DONE FLAG. 
2388 012156 105237 003117 INCB ERLOG 
2389 012162 LET RG := CMDLG :GET CURRENT CMD LOGGING CODE. 
2390 012162 013704 003064 MOV CMDLG,R4 
2391 012166 If RG NE #0 THEN :1f THERE 1S A CODE THEN: 
2392 012166 005704 TST R4 
2393 012170 001520 BEQ 502008 
2394 012172 LET RG := RG = #2 sADJUST THE CODE FOR TABLE INDEX. 
2395 012172 162704 000002 SUB #2,R4 
2396 012176 LET R2 := RS + BINC(R4) + #CNTBGN ;R2 = ADR OF BYTE COUNT LSwW. 
2397 012176 010502 MOV RS,R2 
2398 012200 066402 012434 ADD BINC(R4) .R2 
2399 012204 062702 002544 ADD #CNTBGN,R2 
2400 012210 LET (R2) := (R2) + BRECNT sADD BRF TO LSW. 
2401 012210 063712 003054 ADD BRFCNT, (R2) 
2402 012214 1F MSGPKT#MS.RFC LOS BRFCNT THEN ;IF THE RFC IS LOWER OR THE SAME AS BRF THEN 
2403 012214 023737 002340 003054 CMP MSGPKT+MS .RFC,BR 
2404 012222 101002 BH! 502018 
2405 012224 LET (R2) := (R2) = MSGPKT+#MS.RFC ;SUBTRACT RFC FROM EXPECTED BRF. 
2406 012224 163712 002340 SUB MSGPKT#MS RFC, (R 
2407 012230 END-1F 
2408 012230 50201$: 
2409 012230 LET R3 := R2 + #10 :R3 = ADR OF 2ND WORD. 
2410 012230 010203 MOV R2,R3 
2411 012232 062703 000010 ADD #10,R3 
2412 012236 WHILE (R2) 61 #999. DO 
2413 012236 50202$: 
2414 012236 021227 001747 CMP (R2),#999. 
2415 012242 003404 BLE 502038 
2416 012244 LET (R2) := (R2) = #1000. ;UPDATE BYTE COUNT 
2417 012244 162712 001750 SUB #1000. ,(R2) 
2418 012250 LET (R3) := (R3) + #1 :2ND WORD. 
2419 012250 005213 INC (R3) 
2420 012252 ENDDO 
2421 012252 000771 BR 50202$ 
2422 012254 502038: 
2423 012254 LET R2 := R3 + #10 :R2 = ADR OF 3RD WORD. 
2424 012254 010302 MOV R3,R2 
2425 012256 062702 000010 ADD #10,R2 
2426 012262 WHILE (R3) GT #999. DO 
2427 012262 502048: 
2428 012262 021327 001747 CMP (R3) #999, 
2429 012266 003404 BLE §0205$ 
2430 012270 LET (R3) := (R3) = #1000.  ;UPDATE BYTE COUNT 
2431 012270 162713 001750 SUB #1000. ,(R3) 
2432 012274 LET (R2) := (R2) ¢ wt :3RD WORD. 
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2433 012274 
2434 012276 
2435 012276 
2436 012300 
2437 012300 
2438 012300 
2439 012302 
2440 012306 
2441 012306 
2442 012306 
2443 012312 
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2445 012314 
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2447 012320 
2448 012322 
2449 012322 
2450 012324 
2451 012324 
2452 012324 
2453 012330 
2454 012332 
2455 012332 
2456 012334 
2457 012340 
2458 012344 
2459 012344 
2460 012350 
2461 012352 
2462 012352 
2463 012356 
2464 012356 
2465 012360 
2466 012360 
2467 012362 
2468 012362 
2469 012362 
2470 012364 
2471 012364 
2472 012370 

012 
012 
012 
012 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 
01 


- 062702 
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005212 
000771 


010203 
062703 000010 


021227 
003404 
162712 
005213 
000771 


001747 


001750 


105737 
001440 


010502 
066402 
062702 


105737 
001404 


003120 


012442 
002704 


003121 


000010 
005212 
000424 


005212 


105737 
001020 


002211 


003152 
737 002205 


5 

1 

3746 003114 
2746 004577 
es 000002 
4 
2 


706 000006 


J 8 
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SEQ 0100 
INC (R2) 
ENDDO 
BR 50204$ 
50205$: 
LET R3 := R2 + #10 3R3 = ADR OF 4TH WORD. 
MOV R2,R3 
ADD #10,R3 
WHILE (R2) GT #999. DO 
50206$: 
CMP (R2) #999. 
BLE 50207$ 
LET (R2) := (R2) = #1000. sUPDATE BYTE COUNT 
SUB #1000. ,(R2) 
LET (R3) := (R35) + #1 34TH WORD. 
INC (R3) 
ENDDO 
50206$ 
. 50207$: 
1FB RWERR NE #0 THEN s1F R/wW ERROR, UPDATE ERROR COUNT. 
TSTB RWERR 


BEQ 50210$ 
LET R2 := R5 + EINC(R4) + MWRREC ;R2 = ADR OF —, 
Vv 


R5,R2 
ADD EINC(R4) ,R2 


ADD WWRREC ,R2 
1FB UNREC NE #0 THEN “31S THE ERROR UNRECOVERABLE? 
TSTB UNREC 
BEQ 50211$ 
LET R2 := R2 + #10 YES, POINT TO NEXT COUNTER. 
ADD #10,R2 
LET (R2) := (R2) + #1 ;UPDATE THE ERROR COUNTER 
INC (R2) 
ELSE ELSE - IF ERROR IS RECOVERABLE: 
e BR 50212% 
502118: 
LET (R2) := (R2) + #1 ;UPDATE THE ERROR eesti : on 
N 
1FB IREC EQ #0 THEN 71F ERROR RECOVERY IS ENABLED: 
TSTB IREC 


BNE 50213$ 
1FB DROPED EQ #0 ANDB ERCVER NE #0 THEN ; IF er ee NOT a 


BEQ 
PRINTB #NURTYI,RETRYC ;PRINT # OF RETRIES (og 
V 


RETRYC,=(SP) 
MOV pe 


ENDIF 
ENDIF 


ADD #6,SP 
;PROVIDED PRINT HAS BEEN ENABLED 
502148: 


502138: 


on 
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2489 012432 ENDIF 

2490 012432 502128: 

2491 012432 ENDIF 

2492 012432 502108: 

2493 012432 ENDIF 

2494 012432 ‘ 502008: 

2495 012432 we ENDIF 

2496 012432 50177$: 

2497 012432 000207 RTS PC 

2498 : INDEXES TO BYTE COUNTERS. 

2499 012434 000000 BINC: 0 sWRITE. 

2500 012436 000040 40 sREAD REV. 

2501 012440 000100 100 sREAD FWD. 

2502 : INDEXES TO READ/WRITE ERROR COUNTERS. 

2503 012442 000000 EINC: 0 WRITE. 

2504 012444 000020 20 READ REV. . 

2505 012446 000040 40 sREAD FWD. . 

2506 

2507 

2508 

2509 

2510 : If A WRITE/VERIFY COMMAND IS ISSUED, CONTROL 1S THEN 

2511 ; TRANSFERRED TO THIS SUBROUTINE TO READ REVERSE, CHECK DATA, 

2512 : READ FORWARD, CHECK DATA, THEN CONTINUE TO NEXT COMMAND. 

2513 : INPUTS: 

2514 3 OUTPUTS: 

2515 ; REGISTERS: 

5219 : CALLS: VFEXC. 

2518 012450 VFYDAT:: IFB VFYFLG NE #0 THEN :1F DATA IS TO BE VERIFIED: 

2519 012450 105737 003146 TSTB VFYFLG 

2520 012454 001426 BEQ 502158 

2521 012456 LET PCMDWD := CMDWRD SAVE THE PREVIOUS COMMAND WORD. 

2522 012456 013737 003056 003062 MOV CMDWRD .PCMDWD 

2523 012464 LET CMDWRD := #RDR ;COMMAND IS READ REV. 

2524 012464 012737 104401 003056 MOV #ROR , CMDWRD 

2525 012472 LET CMDLG := #4 ;SET UP CMD LOGGING INDEX. 

2526 012472 012737 000004 003064 MOV #4,CMDLG 

2527 012500 004737 012534 JSR PC, VFEXC 3GO READ ALL THE RECORDS REV. 

2528 012504 LET PCMDWD := CMDWRD ;SAVE THE PREVIOUS COMMAND WORD. 

2529 012504 013737 003056 003062 MOV CMDWRD ,PCMDWD 

2530 012512 LET CMDWRD := #RDF :COMMAND IS READ FWD. 

2531 012512 012737 104001 003056 MOV #RDF ,CMDWRD 

2532 012520 LET CMDLG := #6 ;SET UP CMD LOGGING INDEX. 

2533 012520 012737 000006 003064 MOV #6,CMDLG 

2534 012526 004737 012534 JSR PC, VFEXC ;G0 READ ALL RECORDS FWD. 

2535 012532 ENDIF 

2536 012532 502158: 

2537 012532 000207 RTS PC ;RETURN, 
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2538 

2539 

2540 

2541 

2542 

2543 

2544 012534 
2545 012534 
2546 012542 
2547 012550 
2548 012550 
2549 012554 
2550 012556 
2551 012556 
2552 012564 
2553 012564 
2554 012564 
2555 012564 
2556 012572 
2557 012600 
2558 012600 
2559 012604 
2560 012604 
2561 012604 
2562 012612 
2563 012614 
2564 012620 
2565 012624 
2566 012624 
2567 012624 
2568 012632 
2569 012634 
2570 012634 
2571 012642 
2572 012644 
2573 012644 
2574 012652 
2575 012654 
2576 012654 
2577 012662 
2578 012664 
2579 012664 
2580 012670 
2581 012672 
2582 012676 
2583 012676 
2584 012676 
2585 012676 
2586 012700 
2587 012700 
2588 012704 
2589 012704 
2590 012704 
2591 012704 
2592 012704 
2593 012704 
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013737 
042737 
105737 
001403 
052737 


013737 
013737 


005037 
023737 
004737 
026527 


001442 


032737 
001421 


032765 
001014 


032765 
001406 


105737 


001402 
004737 


000402 
004737 


000412 


003056 
004000 
003150 


010000 


002310 
003046 
003050 
003050 
007006 
013462 
002532 
000400 
000002 
000001 


003154 
012762 


012762 
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002 
002 


Ww 
—— 
oo 


002310 


003060 
002312 


003052 


177777 


003056 


003134 


003134 


VFEXC:: 


SUBROUTINE TO EXECUTE THE READ AN 
INPUTS: 

OUTPUTS: 

REGISTERS: R2 

CALLS: CMDAC, FIRSTU, VF 
LET CMDPKT := CMDWRD CLR.BY #BRF. 


1FB SWBFLG NE #0 THEN 


LET CMDPKT := 
ENDIF 
LET CMDSAV := CMDPKT 


MOV DATARD, CMDPKT*CP.ADL 
LET NCNT := #0 


WHILE NCNT L? NCNT1 DO 


CMDPKT SET.BY #SW 


JSR PC, er 
JSR PC, FIRST 
WHILE DEVTBL CRS) NE #END DO 


IF #MOD.CO SETIN CMDWRD THE 
IF #X0.BOT NOTSETIN EOTFL 
IF #X0.EOT SETIN EOTFLG 
1FB ALLEOT NE #0 THEN 
JSR PC,VFISU 
ENDIF 
ELSE 
JSR PC,VFISU 
ENDIF 


ENDIF 
ELSE 


BIC 
;1F BYTES ARE TO BE SWAPPED: 


50216$: 
SAVE COMMAND PACKET st ~e 
Vv 


;SAVE BUFFER START ADDRESS. 
;CLEAR NUMBER OF OPERATIONS. 


CLR N 
;WHILE THERE ARE RECORDS REMAINING: 
502178: 


50224$:. 
ELSE IF CMD IS NOT woes” oh 


SEQ 0102 


D VERIFY, FORWARD OR REVERSE. 


ISU, NEXTU, CKHAE. 
C ;COMMAND PACKET = READ REV OR FWD. 

MOV CMDWRD , CMDPKT 
WBRF.C,.CMDPKT 


TSTB SWBFLG 
BEQ $ 
SET SWAB BIT IN ee 


B.C 
#SWB.C,CMDPKT 


CMDPKT,CMDSAV 
CNT 


CMP NCNT .NCNT1 
BGE 502208 
STORE CMD ASCII IN ERROR MSG. 
;SET UP FOR FIRST UNIT 
SWHILE THERE ARE bevicés REMAINING: 
502218: 


CMP DEVTBL(RS) .#END 
502228 


BEQ 
N ;1F CMD IS REVERSE THEN: 
BIT #MOD.CO,CMDWRD 
BEQ 502238 
G(R5) THEN ;1F NOT AT BOT 
BIT #xX0.BOT ,EOTFLG(R 
BNE 502248 
(R5) THEN ;BUT IF AT EOT 
BIT #X0.EOT EQTFLG(R § 
BEQ 502258 
AND ALL OTHERS AT EOT 
TSTB ALLEOT 
BEQ 502268 
; THEN READ VERIFY 
:1F NOT ALL AT EOT, FREEZE UNIT(S) 
50226$: 
71f NOT AT BOT AND 
R 50227% 


502258: 
;NOT AT EOT, READ VFY 


502278: 


50230% 


om 2 
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2594 012706 502238: 

2595 012706 1F #X0.EOT NOTSETIN EOTFLG(R5) OR #CMD.CO NOTSETIN CMDWRD THEN 

2596 012706 032765 000001 003134 BIT #X0.E0T ,EOTFLG(R 
2597 012714 001404 BEQ 502318 

2598 012716 032737 000001 003056 BIT #CMD.CO,CMDWRD 
2599 012724 001002 BNE 502328 

2600 012726 502318: 

2601 :1F NOT AT EOT OR NOT A MOTION CMD THEN: 

2602 012726 004737 012762 JSR PC,VFISU ISSUE CMD, CHECK STATUS AND DATA. 

2603 012732 ENDIF 

2604 012732 502328: 

2605 012732 ENDIF 

2606 012732 502308: 

2607 012732 004737 013530 JSR PC,NEXTU 3G0 FIND THE NEXT UNIT. 

2608 012736 ENDDO 

2609 012736 000732 BR 502218 

2610 012740 502228: 

2611 012740 004737 014052 JSR  PC,CKHAE CHECK FOR HALT AFTER EACH CMD. 

2612 012744 LET NCNT := NCNT + #1 ;UPDATE THE RECORD COUNT. 

2613 012744 005237 003050 INC NCNT 

2614 012750 LET PCMDWD := CMDWRD SAVE PREVIOUS COMMAND WORD. 

2615 012750 013737 003056 003062 MOV CMDWRD , PCMDWD 
2616 012756 ENDDO 

2617 012756 000712 BR 50217$ 

2618 012760 502208: 

2619 012760 000207 RTS PC ;RETURN. 
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013702 
062702 


020237 
001403 
012742 
000772 
004737 
105737 


001002 
004737 


105737 
001005 


005765 


001402 
004737 


000207 


003046 
000010 


003046 


177777 


007770 


003152 


010300 


003152 


003034 
013046 
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CHECK STATUS, CHECK DATA 
INPUTS: 


OUTPUTS: 
t REGISTERS: R2 
CALLS: EXCUTE, GOWAIT, 
VFISU:: LET R2 := DATARD + #8, 


WHILE R2 NE DATARD DO 
LET -(R2) := #-1 

ENDDO 

JSR PC, 

IFB OR 


R EXCUTE 
B DROPED EQ #0 THEN 


JSR 
ENDIF 


1FB DROPED £Q #0 THEN 


PC ,GOWAIT 


1F RECCNT(RS) NE #0 THEN 
JSR 
ENDIF 
ENDIF 
RTS PC 


PC,CKDATA 


SUBROUTINE TO ISSUE COMMAND, AWAIT INTERRUPT, 


SEQ 0104 - 
é 
CKDATA. 
; INIT READ BUFFER POINTER. 
MOV DATARD,R2 
ADD 8.,R2 
sUNTIL 8 BYTES HAVE BEEN SET, 
502338: 
CMP R2,DATARD 
BEQ 50234$% 
s INIT READ BUFFER. 
MOV #-1,-(R2) 
BR 502338 
502348: 
3GO EXECUTE THE COMMAND. 
;1F UNIT HAS NOT BEEN DROPPED THEN: 
TSTB DROPED 
BNE 50235$ 
;GO WAIT FOR DONE BIT. 
502358: 
;1F UNIT HAS NOT BEEN att THEN: 
ay DROPED 
BNE 50236$ 
s1F RECORD COUNT IS NOT O THEN: 
TST RECCNT(RS) 
BEQ 50237$ 
360 VERIFY DATA. 
502378: 
502368: 





GLOBAL AREAS MACY11 30(1046) 24-AUG-79 09:10 PAGE 69 
CZTSHB.P11 24-AUG-79 09:08 GLOBAL SUBROUTINES SECTION SEQ 0105 

2659 ; SUBROUTINE TO COMPARE DATA BETWEEN READ AND WRITE BUFFERS : 

2660 : AND PRINT ERROR MESSAGE ON MISCOMPARE. ) 

2661 ; INPUTS: 

2662 ; OUTPUTS: 

2663 : REGISTERS: R2, R3, R4. 

ee : CALLS: GCMDA 

2666 013046 CKDATA:: LET R3 := BRFECNT - MSGPKT¢MS.RFC ; COMPUTE REC LENGTH READ 

2667 013046 013703 003054 MOV BRFCNT,R3 

2668 013052 163703 002340 SUB MSGPKT#MS. RFC,R3 

2669 013056 IF R3 EQ #0 THEN sWHEN NO DATA RECEIVED 

2670 013056 005703 R3 

2671 013060 001015 t, « BNE 502408 

2672 013062 ERRHRD 17,WTVERM,DTAERM :PRINT ERROR AND EXIT 

2673 013062 104456 TRAP CSERHRD 

2674 013064 000021 < «WORD 17 

2675 013066 003670 -WORD WITVERM 

2676 013070 004720 «WORD ODTAERM 

2677 013072 PRINTB #DTAERG COMPARE ROUTINE 

2678 013072 012746 004514 MOV ADTAERS,-(SP) 

2679. 013076 012746 000001 MOV #1,-(SP) 

2680 -013102 010600 MOV SP,RO 

2681 013104 104414 TRAP C$PNTB 

2682 013106 062706 000004 ADD #4,SP 

2683 013112 ELSE 

2684 013112 000560 BR 50241$ 

2685 013114 502408: - 

2686 013114 IF R3 HI BRFECNT THEN ;WHEN REC READ IS LONGER 

2687 013114 020337 003054 CMP R3,BRFCNT 

2688 013120 101417 BLOS 50242$ 

2689 013122 ERRHRD 17,WTVERM,DTAERM THAN EXPECTED, PRINT 

2690 013122 104456 TRAP CSERHRD 

2691 013124 000021 WORD 17 

2692 013126 003670 -WORD WITVERM 

2693 013130 004720 -WORD DTAERM 

2694 013132 PRINTB #DTAERS, CMDPKT+CP.CNT :AN ERROR MESSAGE 

2695 013132 013746 002316 MOV CMDPKT+CP.CNT,=( 

2696 013136 012746 004535 MOV #DTAERS,-(SP) 

2697 013142 012746 000002 MOV #2,-(SP) 

2698 013146 010600 MOV SP,RO 

2699 013150 104414 TRAP C$PNTB 

2700 013152 062706 000006 ADD #6,SP 

2701 013156 ELSE :AND EXiT ROUTINE 

2702 013156 000536 B& 50243$ 

2703 013160 502428: 

2704 013160 LET CKDCNT := R3 - #1 SAVE VERIFICATION LENGTH = 1. 

2705 013160 010337 013456 MOV R3,CKDCNT 
706 013164 005337 013456 DEC CKDCNT 

2707 013170 005037 013460 CLR CKDFF :CLEAR # OF BYTES IN ERROR COUNTER, 

2708 013174 005002 CLR R2 s INIT BYTE COUNTER 

2709 013176 LET R3 := DATAWT :GET WRITE BUFFER ADDRESS. 

2710 013176 013703 003044 MOV DATAWT ,R3 

2711 013202 LET RG := DATARD :GET READ BUFFER ADDRESS. 

2712 013202 013704 003046 MOV DATARD,R4& 

2713 013206 1FB T1SWB NE #0 THEN :WHEN RUNNING TEST1-SUB le. 

2714 013206 105737 003153 1STB T1SWB 
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2716 013214 
2717 013216 
2718 013216 
2719 013216 
2720 013216 
2721 013216 
2722 013216 
2723 013222 
2724 013224 
2725 013224 
2726 013230 
2727 013232 
2728 013232 
2729 013240 
2730 013242 
2731 013244 
2732 013246 
2733 013246 
2734 013246 
2735 013246 
2736 013246 
2737 013246 
2738 013246 
2739 013250 
2740 013252 
2741 013256 
2742 013260 
2743 013264 
2744 013270 
2745 013270 
2746 013272 
2747 013274 
2748 013276 
2749 013300 
2750 013300 
2751 013304 
2752 013310 
2753 013316 
2754 013322 
2755 013330 
2756 013330 
2757 013336 
2758 013340 
2759 013340 
2760 013342 
2761 013346 
2762 013350 
2763 013354 
2764 013356 
2765 013362 
2766 013366 
2767 013370 
2768 013372 
2769 013376 
2770 013376 
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001401 
000315 


020237 
001011 


105737 
001406 


032737 


105724 


121314 


005265 
104456 


004720 
005237 


042737 


023727 
002017 


005046 


013456 


003150 


000001 


013460 


003004 
003014 


013460 


177400 
013460 


003076 
003074 
004403 
000004 


000012 
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2$: 


SWAB (R3) 
ENDIF 


REPEAT 


If R2 EQ CKDCNT THEN 


1FB SWBFLG NE #0 THEN 


If #B1T00 NOTSETIN CKDCNT THEN 


TSTB (R3)+ 
TSTB (R4)+ 
ENDIF 
ENDIF 


ENDIF 

CMPB (R3),(R4) 

BEQ 3$ 

TST CKDFF 

BNE 

INC VFYCNT(RS5) 


INC HROCNT(RS) 
ERRHRD #17, WIVERM,DTAERM 


LET CKDFF := CKDFF + #1 


MOVB (R4),TIME1 

BIC #177400, TIME 
MOVB (R3),TIME2 

BIC #177400, TIME2 
1F CKDFF LT #11. THEN 


PRINTX MDTAER2,R2,<B,TIME1>,<B,TIME2> 


ENDIF 


sARE THEY 7 


SEQ 0106 


BEQ 502448 
SWAP FIRST WORD OF WRT BFR 
;WHICH CONTAINS THE — COUNT 
;REPEAT UNTIL ALL DATA IS COMPARED: 
50245$: 
;1F THIS IS THE LAST BYTE — 
CMP R2, Nes 
BNE 502468 
71F BYTE SWAPPING IS aS THEN: 
STB SWBFLG 
Bed 50247$ 
;1F RECORD LENGTH IS ODD THEN: 
BIT #81100,CKDCNT 
BNE 50250$ 


;LAST BYTE WILL BE IN 
; THE UPPER BYTE. 


50250$: 
50247$: 
502468: 


;BR IF SO. 
31 ST TIME THRU? 
;BR 1F NOT. 
INC THE VERIFY ERROR COUNTER. 
;INC THE HARD ERROR COUNT. 
:REPORT WRITE/VERIFY ERROR. 
TRAP | iam 


- WORD 

«WORD WTVERM 

-WORD ODTAERM 
: INCREMENT # OF BYTES IN rg 

IN CKDFF 


;SAVE WAS DATA FOR TYPOUT. 
;CLEAR GARBAGE. 

;SAVE SHOULD BE DATA FOR TYPOUT. 
;CLEAR GARBAGE. 

;1F ERROR BYTE COUNT IS hy THAN 11: 


CKDFF #11 

BGE 50251$ 
;PRINT EXP + ACT DATA, 

CLR -(SP) 

BISB Mint & (SP) 

LR (SP) 
BISB TIRE! Ms le 
MOV R2,- 


MOV SOTAERD (SP) 


MOV SP RO 
TRAP CSPNTX 
ADD w12,SP 


502518: 
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2771 013376 105723 3$: TSTB (R3)+ ;UPDATE WRITE BUFFER ADDRESS. 
2772 013400 105724 TSTB (R4)+ sUPDATE READ BUFFER ADDRESS. 

2773 013402 105722 TSTB (R2)+ ;UPDATE BYTE COUNTER. 

2774 013404 UNTIL R2 GT CKDCNT END OF DATA COMPARE REPEAT LOOP. 

2775 013404 020237 013456 CMP R2,CKDCNT 
2776 013410 003702 BLE 50245$ 
2777 =013412 LET CKDCNT := CKDCNT + #1 8 ;CKDCNT EQUALS RECORD LENGTH. 

2778 013412 005237 013456 INC CKDCNT 
2779 =013416 1f CKDFF NE #0 THEN 71F COMPARE ERROR HAS OCCURED THEN: 

2780 013416 005737 013460 TST + CKDFF 
2781 013422 001414 BEQ 502528 
2782 013424 PRINTB #DTAERS,CKDFF ,CKDCNT PRINT # OF BYTES IN ERROR. 

2783 013424 013746 013456 MOV CKDCNT,-(SP) 
784 013430 013746 013460 MOV CKDFF ,-(SP) 
2785 013434 012746 004452 MOV #DTAERS,-(SP) 

2786 013440 012746 000003 MOV #3,-(SP) 
2787 013444 010600 MOV RO 
2788 013446 104414 TRAP CSPNTB 
2789 013450 062706 000010 ADD #10,SP 
2790 013454 ENDIF 

2791 013454 50252$: 

2792 013454 | ENDIF 

2793 013454 502438: 

2794 013454 ENDIF 

2795 013454 502418: 

gree 013454 000207 RTS PC OTHERWISE, RETURN. 

2798 013456 000000 CKDCNT: .WORD 0 :4 OF BYTES TO BE VERIFIED -1. 

2799 013460 000000 CKDFF: .WORD 0 :# OF BYTES IN ERROR COUNTER. 
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2800 : SUBROUTINE TO FIND THE FIRST DEVICE IN THE TEST SEQUENCE. 
2801 3 INPUTS: 
2802 : OUTPUTS: 
2803 ; REGISTERS: 
sone : CALLS: 
2806 013462 FIRSTU:: LET DROPED :B= #0 ;CLR UNIT DROPPED FLAG 
2807 013462 105037 003152 CLRB DROPED 
2808 013466 LET RS := #0 :CLR DEVICE POINTER. 
2809 013466 005005 CLR RS 
2810 013470 WHILE DEVTBL(RS) EQ #NINUSE DO ;WHILE DEVICES ARE NOT IN USE: 
2811 013470 502538: 
2812 013470 026527 002532 177774 CMP DEVTBL(RS) ,#NINU 
2813 013476 001003 BNE 50254$ 
2814 013500 LET RS := RS + #2 sPOINT TO NEXT DEVICE. 
2815 013500 062705 000002 ADD #2,R5 
2816 013504 ENDDO 
2817 013504 000771 AR 502538 
2818 013506 50254$: 
2819 013506 IF DEVTBL(RS) EQ #END THEN ;1- ALL UNITS HAVE BEEN DROPPED THEN: 
2820 013506 026527 002532 177777 CMP DEVTBL (RS), #END 
2821 013514 001001 BNE 50255$ 
2822 013516 ; DOCLN 3D0 CLEAN CODE AND TERMINATE PASS. 
2823 013516 104444 TRAP CSDCLN 
2824 013520 ENDIF 
2825 013520 50255$: 
2826 013520 LET L$LUN := DEVTBL(RS) 7SET UNIT # IN ‘HEADER’ FOR ERROR REPORT 
2827 013520 016537 002532 002074 MOV DEVTBL(R5),L$LUN 
44 013526 000207 RTS PC RETURN WITH 1ST DEVICE IN RS. 
2830 
2831 
2332 
2833 
2834 ; SUBROUTINE TO FIND THE NEXT UNIT IN THE TEST CYCLE. 
2835 : INPUTS: 
2836 : OUTPUTS: 
2837 ; REGISTERS: 
2838 : CALLS: 
2839 ; 
2840 013530 NEXTU:: LET DROPED :B= #0 ‘ :CLR UNIT DROPPED FLAG 
2841 013530 105037 003152 CLRB DROPED 
2842 013534 REPEAT sREPEAT UNTIL THE NEXT DEVICE IS FOUND. 
2843 013534 502568: 
2844 013534 LET RS := R5 + #2 sUPDATE DEVICE TABLE POINTER. 
2845 013534 062705 000002 ADD #2,R5 
2846 013540 UNTIL DEVTBL(RS5) NE #NINUSE 
2847 013540 026527 002532 177774 CMP DEVTBL(RS) ,@NINU 
2848 013546 001772 BEQ 50256$ 
2849 013550 LET LSLUN := DEVTBL(RS) :SET UNIT # IN ‘HEADER’ FOR ERROR REPORT 
2850 013550 016537 002532 002074 MOV DEVTBL( RS) .LSLUN 
co) 013556 000207 RTS PC :RETURN, 
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2855 ; SUBROUTINE TO DROP A DEVICE FROM THE TEST SEQUENCE. 
2856 : INPUTS: 
2857 ; OUTPUTS: 
2858 ; REGISTERS: 
444 : CALLS: MOYMSG, PRXST, LOG 
2861 013560 DROPU:: LET FILCNT(RS) := FILCNT(RS) + #1 ; INCREMENT THE FATAL ERROR COUNT. 
2862 013560 005265 003024 INC FILCNT(RS) 
2863 013564 LET RG := MSGPKT#MS.XS3 CLR.BY #377 :GET UDIAG ERROR CODE FROM XSTAT3. 
2864 013564 013704 002350 MOV MSGPKT+MS.XS3,R4 
2865 013570 042704 000377 BIC #377,R4 
2866 013574 LET R3 := MSGPKACRS) zADR OF THIS UNIT'S MSG PACKET. 
2867 013574 016503 002502 MOV MSGPKA(RS) ,R3 
2868 013600 LET R2 := #0 CLR COUNTER. 
2869 013600 005002 CLR R2 
2870 013602 WHILE R2 NE #MSGCNT DO WHILE THERE ARE MORE LOCATIONS: 
2871 013602 50257$: 
2872 013602 020227 000016 CMP R2,#MSGCNT 
2873 013606 001405 BEQ 502608 
2874 013610 LET (R3)+ := #1 INIT THE MSG PACKET WITH ALL 1°S 
2875 013610 012723 177777 MOV #-1,(R3)4 
2876 013614 LET R2 := R2 + #2 :UPDATE COUNTER. 
2877 013614 062702 000002 ADD #2,R2 
2878 013620 ENDDO 
2879 013620 000770 BR 50257$ 
2880 013622 502608: 
2881 013622 LET @TSDB(RS) := #GSCPK INITIATE A GET STATUS COMMAND. 
2882 013622 012775 002320 002452 MOV #GSCPK ,aTSDB(RS) 
2883 013630 004737 010520 JSR PC,WSSR sWAIT A WHILE FOR SSR=1 
2884 013634 004737 010554 JSR PC, MOVMSG MOVE MSG PACKET TO COMMON AREA. 
2885 013640 IF R4 EQ #X3.RNY THEN :1F WE HAVE A CAPSTAN RUNAWAY THEN: 
2886 013640 020427 157400 CMP R4,#X3 RNY 
2887 013644 001005 BNE 50261$ 
2888 013646 ERRDF #16,RNYM,STAERM REPORT CAPSTAN RUNAWAY WITH TACH CNT. 
2889 013646 104455 TRAP CSERDF 
2890 013650 000020 .WORD 16 
2891 013652 004210 .WORD  RNYM 
2892 013654 005066 WORD STAERM 
2893 013656 ELSE ZELSE-I1F NOT A RUNNAWAY: 
2894 013656 000402 BR 502628 
2895 013660 50261$: 
2896 013660 004737 013770 JSR PC,PRXST :PRINT EXTENDED STATUS REGISTERS. 
2897 013664 ENDIF 
2898 013664 502628: 
2899 013664 I1FB RECLOG NE #0 THEN :1F THE RECORD HAS BEEN LOGGED THEN: 
2900 013664 105737 003116 TSTB RECLOG 
2901 013670 001404 BEQ 50263$ 
2902 013672 LET DROPED :B= DROPED + #1 :SET UNIT DROPPED FLAG. 
2903 013672 105237 003152 INCB DROPED 
2904 013676 004737 012150 JSR PC,LOG :LOG DATA BYTES + RD/WR ERRORS. 
2905 013702 ENDIF 
2906 013702 50263$: 
2907 013702 DURPT :PRINT PERFORMANCE REPORT 
2908 013702 104424 . TRAP CSDRPT 
2909 013704 DROPUA: If PASCNT(RS) NE #0 THEN 
2910 013704 005765 002764 1S] PASCNT(RS) 
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2919 013724 
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2931 013754 
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2933 013760 
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001402 
005365 


016537 


010500 
006200 


104451 


026527 
001407 


105737 
001004 


005075 
105237 


105237 
000207 


000000 


002764 


002532 


002532 


002211 


002462 
003156 


003152 
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013766 


177774 
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BEQ 50264$ 
LET PASCNT(RS) := PASCNT(RS) = #1 

DEC PASCNT(R5S) 

ENDIF 

50264$: 
LET DROPN := DEVTBL(RS) ;SAVE # OF UNIT TO BE DROPPED. 
Vv DEVTBL(R5) ,DROPN 

LET RO := R5 SHIFT =-1 :RO=LOGICAL DEVICE NUMBER by 
MOV R5,R0 
ASR RO 

DODU RO ;DROP THE UNIT: EXEC BGNDU-ENDDU CODE IF IDU = 0 
TRAP C$D0bU 

If DEVTBL(RS) NE #NINUSE THEN ;]F UNIT NOT DROPPED 

DEVTBL(R5) ,#NINU 
BEQ 50265$ 
1FB iREC EQ #0 THEN ;1F RECOVERY iS ENABLED THEN: 
TSTB IREC 
BNE 50266$ 
LET @TSSR(RS) := #0 ; ISSUE SUBSYSTEM INIT . 

CLR @TSSR(RS) 


DRORTN: 


DROPN: 


LET STAFLG :B= STAFLG + #1 
ENDIF 
ENDIF 
LET DROPED :B= DROPED + #1 
RTS PC 
-WORD 0 


;SET START FLAG TO ENABLE REWIND, 
INCB STAFLG 


50266$: 


50265$: 
;SET UNIT DROPPED FLAG. 
;RETURN. 
34 OF UNIT TO BE DROPPED 


INCB DROPED 
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2963 014044 
2964 014050 


2975 014052 
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2746 004663 
2746 000001 


1 
1 
1 
0 
62706 000004 
fe 002350 
1 
1 
1 
1 


2746 000005 


062706 000014 
000207 


105737 002204 
001422 


104450 
103020 


013704 003056 
004737 007060 


112337 003546 
112337 003547 
111337 003550 
104443 


000001 
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SUBROUTINE TO PRINT EXTENDED STATUS REGISTERS. 
INPUTS: 


OUTPUTS: 


Se Se Ge Ge te 


CALLS: 


PRXST:: PRINTX #CETSTM 


REGISTERS: 


SEQ 0111 


#GETSTM,-(SP) 
#1,-(SP) 
SP,RO 

ely 


PRINTX MSTAERS,MSGPKT#MS.XSO,MSGPKT+*MS.XS1,MSGPKT+MS, 132, IASGPRTORS: sxs3 


RTS PC 


OUTPUTS: 


Be Se Be Be Oe 


CALLS: 


CKHAE:: I1FB HAE NE #0 THEN 


MANUAL 


BNCOMPLETE CKHRIN 
LET R4 := 


JSR  PC,GCMDA 
LET HALTM :B= 


LET HALTM+1 :B= 
LET HALTM+2 :B= 
GMANIL HALTM,TIME1,1, YES 


REGISTERS: 


SUBROUTINE TO HALT AFTER EACH COMMAND. 
INPUTS: 


;1F HALT FLAG IS SET: 


71S MANUAL INTERVENTION 
;BR IF NOT. 
; COMMAND WORD. 


FETCH ADR OF CMD ASCII. 
sMOVE CMD ASCII 


; INTO MESSAGE. 


MOVB 
HALT = WAIT FOR AN OFPRATOR INPU 
RAP 86 A 


B 
ALLOWED? 


TRAP 
BCC 
MOV 


MOVB 
MOVB 


MSGPKT+#MS .XS3,=( 
MSGPKT+#MS.XS2,-¢ 
MSGPKT#MS .XS1, =< 
MSGPKT+*MS.XSO,-( 
#STAERS ,-(SP) 
#5,-(SP) 


#14,SP 


HAE 
50267$ 


CS$MANI 
CKHRIN 
CMDWRD ,R4 


(R35)*,HALTM 
(R3)+,HALTM?1 
ah HALTM+2 


10000% 
TIME 
TSCODE 
tooles 
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2998 014124 100008: 
2999 014124 ENDIF 
3000 014124 50267$: 
3001 014124 000207 CKHRIN: RTS PC ;RETURN 
soot -EVEN 


3004 014126 ENDMOD 
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3005 
3006 - TITLE MISCELLANEOUS SECTIONS 
44 -SBTTL REPORT CODING SECTION 
3009 014126 BGNMOD 
3010 
3011 p++ 
3012 ; THE REPORT CODING SECTION CONTAINS THE 
wre ; ‘‘PRINTS'’ CALLS THAT GENERATE STATISTICAL REPORTS. 
3015 
3016 014126 BGNRPT 
3017 014126 LSRPT:: 
3018 
3019 
3020 014126 LET RSSAVE := RS 7SAVE CURRENT DEVICE —- 
3021 014126 010537 003110 RS, RSSAVE 
3022 014132 004737 013462 JSR PC,FIR sFIND THE FIRST UNIT. 
3023 014136 WHILE DEVIBL ERS) One #WEND DO [WHILE THERE ARE MORE DEVICES: 
3024 014136 502708: 
3025 014136 026527 002532 177777 CMP DEVTBL(RS) ,#END 
3026 014144 001555 BEQ 50271$ 
3027 014146 PRINTS WRPTIA,DEVTBL(RS) ,PASCNT(RS) ,RECCNT(RS) 
3028 014146 016546 003034 MOV RECCNT(RS) ,-(SP) 
3029 014152 016546 002764 MOV PASCNT(RS) ,-(SP) 
3030 014156 016546 002532 MOV DEVTBL(RS) ,-(SP) 
3031 014162 012746 014510 MOV #RPTIA,-(SP) 
3032 014166 012746 000004 MOV #4,-(SP) 
3033 014172 010600 MOV SP,RO 
3034 014174 104416 ; o CSBNTS 
3035 014176 062706 000012 #12,SP 
3036 014202 PRINTS #RPTIB,WRBC+30(R5) ,WRBC+20(R5), uRaC+ 10083). “noc (RS) 
3037 014202 016546 002544 WRBC (RS) .-(SP) 
3038 014206 016546 002554 nov WRBC+10(R5S), -(SP 
3039 014212 016546 002564 MOV WRBC+20(R5).=(SP 
3040 014216 016546 002574 MOV WRBC+30(R5) .-(SP 
3041 014222 012746 014565 MOV #RPT1IB,-(SP) 
3042 014226 012746 000005 MOV #5,-(SP) 
3043 014232 010600 MOV SP,RO 

014234 104416 — CSPNTS 
3045 014236 062706 000014 4,SP 
3046 014242 PRINTS #RPTIC,RRBC+30(R5) ,RRBC*+20(R5), RRC TORS) “aac (RS) 
3047 014242 016546 002604 MOV RBC(RS) ,-(SP) 
3048 014246 016546 002614 MOV RRBC*1O(RS). -(SP 
3049 014252 016546 002624 MOV RRBC#20(R5) .-(SP 
3050 014256 016546 002634 MOV RRBC+30(R5) .-(SP 

014262 012746 014636 ————-- ROY #RPTIC.-(SP) 
3052 014266 012746 000005 MOV #5,-(SP) 

3 014272 010600 MOV SP,RO 

3054 014274 104416 TRAP CAPRIS 
3055 014276 062706 000014 ADD 
3056 014302 PRINTS #RPTID,RFBC+30(R5) ,RFBC+20(R5), achvertaictag “RvBC(RS) 
3057 014302 016546 002644 RFBC(RS) ,-(SP) 
3058 014306 016546 002654 ‘ ROY RFBC+10(R5), -(SP 
3059 014312 016546 002664 MOV RFBC+20(R5) .=(SP 


3060 014516 016546 002674 MOV RFBC+30(R5) ,-(SP 
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3061 014322 012746 014707 MOV #RPT1D,-(SP) 
3062 014326 012746 000005 MOV #5,-(SP) 

3063 014332 010600 MOV SPR 
3064 014334 104416 TRAP CSPNTS 
3065 014336 062706 000014 ADD #14,SP 
3066 014342 PRINTS WRPTIF ,WRREC(RS) ,RRREC(RS) ,RFREC(RS) 
3067 014342 016546 002744 MOV RFREC(RS) ,-(SP) 
3068 014346 016546 002724 MOV RRREC(RS) ,-(SP) 
3069 014352 016546 002704 MOV WRREC(RS) ,-(SP) 
3070 014356 012746 015013 MOV #RPTIF -(SP) 
3071 014362 012746 000004 MOV #4,-(SP) 
3072 014366 010600 MOV SP ,RO 
3073 014370 104416 TRAP CSPNTS 
3074 014372 062706 000012 ADD #12,SP 
3075 014376 PRINTS #RPT1G, WRUNR(RS) ,RRUNR(RS) ,RFUNR(RS) 
3076 014376 016546 002754 MOV RFUNR(RS) ,-(SP) 
3077 014402 016546 002734 MOV RRUNR(RS) ,-(SP) 
78 014 016546 002714 MOV WRUNR (RS) ,-(SP) 
3079 014412 012746 015064 MOV #RPT1G,-(SP) 
014416 012746 000004 MOV #4,-(SP) 
3081 014422 010600 MOV SP RO 
3082 014424 104416 TRAP CSPNTS 
3083 014426 062706 000012 ADD #12,SP 
3084 014432 PRINTS #RPTI1,SCCNT(RS) ,HRDCNT(RS) .FTLCNT(RS) ,.VEYCNT(RS) 
3085 014432 016546 003004 MOV VF YCNT(RS) ,-(SP) 
3086 014436 016546 003024 MOV FILCNT(RS) ,-(SP) 
3087 014442 016546 003014 MOV HRDCNT(R5) .=(SP) 
3088 014446 016546 002774 MOV SCCNT(RS) ,-(SP) 
3089 014452 012746 015213 MOV #RPT11,-(SP) 
3090 014456 012746 000005 MOV #5,-(SP) 
3091 014462 010600 MOV SP,RO 
3092 014464 104416 TRAP CSPNTS 
3093 014466 062706 000014 ADD #14,SP 
3094 014472 004737 015530 JSR PC,NEXTU sFIND THE NEXT UNIT. 
3095 014476 ENDDO 
3096 014476 000617 BR 50270$ 
3097 014500 502718: 
3098 014500 LET RS := RSSAVE sRESTORE CURRENT DEVICE POINTER. 
3099 014500 013705 003110 MOV RSSAVE,RS 
3100 014504 EXIT RPT 
3101 014504 000167 «WORD JSJMP 
3102 014506 000540 -WORD 110010-2-, 
3103 
3104 
3105 -NLIST BEX 
014510 047045 047045 040445 RPTIA: .ASCIZ /%NXZNZAUNIT ZD1RS352%APASS: seyses sees cent: laa 
014565 045 041101 052131 RPTIB: .ASCIZ /RABYTES WRITTEN %2D32A,223%A,2232A,22352N 
014636 040445 054502 042524 RPTIC: .ASCIZ /2ABYTES READ oa eo taee Hatt 423%A, titty, 
014707 045 041101 052131 RPTID: .ASCII /2ABYTES READ F ZD3%A, ae eane ZZ32A,2232N/ 
014757 045 031123 022463 ASCI2Z seee AUR TEse SARDRESARARDE 
015013 045 051101 041505 RPTIF: ASCIZ /2ARECOVERABLE ERRORS aE NS2EDSES2EDSEN/ 
015064 040445 047125 042522 RPT1G: .ASCI1 /ZAUNRECOVERABLE ERRORS ADSAS2RDSAS2ADSANAN/ 
015136 040445 050123 041505 LASCIZ ‘“RASPEC COND&ZSSZAHARDZS 3ZAF ATALZS 32ACOMPAREZN' 
015213 045 031523 042045 RPTII: ASCE {FA ER ROSES OS Oa 
A, 


3106 -EVEN 
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015250 ENDRPT 

015250 L10010: 

015250 104425 TRAP CSRPT 
~SBTTL LOAD DEVICE PROTECTION TABLE 


STABLE FOR SUPERVISOR TO IDENTIFY THE P-TBL FOR THE LOAD DEV 
; THE SUPERVISOR USES THE TBL TO WARN THE OPERATOR WHEN HE TRIES TO TEST THE LOAD DEV 


52 BGNPROT 

52 LSPROT:: 

52 000000 :P-TBL OFFSET OF TSSR, THE TS11 CSR 

54 177777 ! ~WORD -1 :P-TBL OFFSET OF MASS BUS UNIT #: <1 = NOT A MASS BUS DE 

7 177777 ; Fh oo ;P-TBL OFFSET OF DRIVE #: -1 = NONE, ONE DRIVE PER UNIBU 
N 


POPIPIIIR SS OO 
PWN KO QRWNGUVESWN—O”O 
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3125 -SBTTL INITIALIZE SECTION 
3126 
3127 p44 
3128 : THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
3129 ; AT THE BEGINNING OF EACH PASS. 
3130 3e° 
3131 
3132 015260 BGNINIT 
gt 015260 LSINIT:: 
3135 015260 INIT10: IF #BITO'BIT1 SETIN #CMDPKT THEN ;1F CMD PACKET IS NOT ON MODULO 4 BOUNDRY: 
3136 015260 032727 000003 002310 BIT #B1T0'BIT1,#CMDP 
3137 015266 001421 BEQ 50272$ 
3138 015270 ERRSF #1,CMDPKM sPRINT ERROR MSG, 
3139 015270 104454 TRAP CSERSF 
3140 015272 000001 «WORD 1 
3141 015274 003606 -WORD CMDPKM 
3142 015276 000000 «WORD 0 
3143 015300 DELAY 2000. :G0 TO SUPERVISOR, WAIT 2 SECONDS. 
3144 015300 012727 003720 MOV #2000. ,(PC)+ 
3145 015304 000000 -WORD 0 
3146 015306 013727 002116 MOV LSDLY, (PC)+ 
3147 015312 000000 «WORD 0 
3148 015314 005367 177772 DEC -6(PC) 
3149 015320 001375 BNE 74 
3150 015322 005367 177756 DEC -22(PC) 
3151 015326 001367 BNE .720 
3152 015330 000753 BR INIT10 ; 
3153 015332 ENDIF 
tgs 015332 502728: 
3156 015332 I1FB CLRFLG NE #0 THEN :1F CLR COUNTERS FLAG SET: 
3157 015332 105737 002202 TSTB CLRFLG 
3158 015336 001413 BEQ 50273$ 
3159 015340 105037 002202 fLRB CLRFLG sINIT CLR FLAG. 
3160 015344 LET R2 := #0 
3161 015344 005002 CLR R2 
3162 015346 WHILE R2 NE #CNTLEN DO 
3163 015346 502748: 
3164 015346 020227 000270 CMP R2,#CNTLEN 
3165 015352 001405 BEQ 502758 
3166 015354 LET WRBC(R2) := #0 :CLR ALL STATISTICAL COUNTERS. 
3167 015354 005062 002544 CLR WRBC(R2) 
3168 015360 LET R2 := R2 + #2 
3169 015360 062702 000002 ADD #2,R2 
3170 015364 ENDDO 
3171 015364 000770 BR 502748 
3172 015366 50275$: 
3173 015366 ENDIF 
3108 015366 502738: 
3176 015366 . 1FB RRANV NE #0 THEN :1F RESET RANDOM VARIABLE FLAG IS SET THEN: 
3177 015366 105737 002203 TSTB RRANV 
3178 015372 001406 BEQ 50276% 
3179 015374 LET RANB := #RANBC RESET RANDOM BASE #, 
3180 015374 012737 153624 003070 MOV #RANBC ,RANB 


\ 
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3181 015402 
3182 015402 
3183 015410 
3184 015410 
3185 015410 
3186 015410 
3187 015414 
3188 015416 
3189 015416 
3190 015420 
3191 015420 
3192 015424 
3193 015424 
3194 015430 
3195 015430 
3196 015430 
3197 015430 
3198 015436 
3199 015436 
3200 015442 
3201 015442 
3202 015444 
3203 015446 
3204 015446 
3205 015452 
3206 015454 
3207 015454 
3208 015454 
3209 015454 
3210 015460 
3211 015460 
3212 015464 
3213 015470 
3214 015470 
3215 015472 
3216 
3217 015474 
3218 015474 
3219 015500 
3220 015502 
3221 015502 
3222 015504 
3223 015504 
3224 015510 
3225 015510 
5226 
3227 015514 
3228 015514 
3229 015516 
5230 015522 
3231 015522 
3232 0155246 
3255 015524 
5234 015530 
3235 015532 
5236 015532 


012737 


012700 
104447 


103026 
105237 
012705 


012765 
162705 


005705 
001371 


013705 
006305 


162705 


010565 
006265 


005705 
001370 
012700 
104447 
103004 
105237 
105237 
104421 
010037 
005003 


105737 
001020 


012700 
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032561 


000040 


003156 
000006 


177774 
000002 


002012 


000002 


002532 
002532 


000034 


003156 
003157 


003162 


003157 


000055 


003072 


002532 
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INITIALIZE SECTION 


INIT15: 


INIT16: 


LET RANS := #RANSC 


ENDIF 
READEF #EF.START 
BNCOMPLETE INIT15 


LET STAFLG :B= STAFLG + #1 
LET RS := #6 
REPEAT 
LET DEVTBL(RS) := #NINUSE 
LET RS := R5 = #2 
UNTIL R5 EQ #0 


LET RS := LSUNIT SHIFT 1 


REPEAT 
LET RS := RS = #2 
LET DEVTBL(RS) 


UNTIL R5 EQ #0 


READEF #EF .PWR 


BNCOMPLETE INIT16 
LET STAFLG :B= STAFLG + #1 
LET PWRFLG :B= PWRFLG + #1 


RFLAGS OPFLAG 


LET R3 := #0 
1FB PWRFLG EQ #0 THEN 


READEF #EF NEW 


:= RS SHIFT =1 


;RESET RANDOM SAVE LOCATION. 
MOV 


50276$: 
sREAD START COMMAND ee 
V 


TRAP 
;BRANCH IF NOT STARTING. ¢ 
;SET START COMMAND FLAG. 

INCB 


MOV 
; INITIATE UNIT NUMBER TABLE 
502778: 


:BY STORING NOT IN USE IN EACH L 
MOV 


SUB 


TST 
BNE 


MOV 
ASL 


00$: 
SUB 


MOV 
ASR 
ist 
BNE 


STORE ALL UNIT 
sNUMBERS IN DEVTBL. 


HAS THERE BE A POWER FAILURE? 
MOV 


TRAP 
;BRANCH IF NOT. 


BCC 
:1F SO = SET THE START FLAG. 

INCB 
FLAG. 


:1F SO = SET THE POWER FAIL 
INCB 


;READ AND STORE FLAGS SET. BY OPE 
TRAP 


MOV 
CLEAR EVENT FLAG 


: CLR 
;1F POWER FAIL HAS NOT’ OCCURRED 
» TSTB 


BNE 
;UPDATE PASS COUNT WHEN 





SEQ 0117 


WRANSC ,RANS 


WEF .START RO 
CSREFG 

INIT15 

STAFLG 

#6,R5 

OCATION. 

#NINUSE ,DEVTBL(R 
#2,R5 


R5 

502775 
LSUNIT,R5S 
RS 


#2,R5 

RS ,DEVTBL(RS) 
DEVTBL(RS) 
R5 

50300$ 

WEF .PWR,RO 
CSREFG 
INIT16 
STAFLG 
PWRFLG 
RATOR 


CSRFLA 
RO,OPFLAG 


Ra 
THEN: 
PWRFLG 
503018 


#EF NEW .RO 
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3237 015536 104447 , TRAP CSREFG 
3238 015540 IFCOND CS THEN ; SUPERVISOR 1S IN NEW PASS 
3239 015540 103014 BCC 503028 
3240 015542 IFB STAFLG EQ #0 THEN ;AND DIAG WAS NEITHER STARTED 
3241 015542 105737 003156 TSTB = STAFLG 
3242 015546 001010 BNE 503038 
3243 015550 READEF #EF.RES ;NOR 
3244 015550 012700 000037 MOV WEF RES, RO 
3245 015554 104447 TRAP CSREFG 
3246 015556 I1FCOND CC THEN RESTARTED 
3247 015556 103402 BCS 503048 
3248 015560 LET R3 := COMP R35 = ;DO IT 
3249 015560 005103 COM R3 
3250 015562 ELSE 
3251 015562 000401 BR 50305$ 
3252 015564 50304$: 
3253 015564 LET R3 := R3 + #1 ;SET 1ST PASS IF NEW PASS AND 
3254 015564 005203 INC R3 
3255 015566 P ENDIF ;RESTARTING 
3256 015566 503058: 
3257 015566 ELSE 
3258 015566 000401 BR 50306$ 
3259 015570 50303$: 
3260 015570 LET R3 := R35 + #1 ;SET 1ST PASS IF NEW PASS AND 
3261 015570 005203 INC R3 
3262 015572 ENDIF > STARTING 
3263 015572 50306$: 
3264 015572 ENDIF :D0 NOT UPDATE IT ON CONTINUE 
3265 015572 503028: 
3266 015572 ENDIF ;OR ON POWER FAIL 
3267 015572 503018: 
3268 015572 004737 013462 JSR PC,FIRSTU s INIT DEVICE POINTER. 
3269 015576 LET R2 := #0 ; INIT DEVICE COUNTER. 
3270 015576 005002 CLR R2 
3271 015600 WHILE DEVTBL(R5) NE #END DO 
3272 015600 50307$: 
3273 015600 026527 002532 177777 CMP DEVTBL(RS) ,#END 
3274 015606 001450 BEQ 503108 
3275 015610 LET R2 := R2 + #1 
3276 015610 005202 ; INC R2 
3277 015612 LET RO := R5 SHIFT -1 
3278 015612 010500 MOV R5,R0 
3279 015614 006200 ASR RO 
3280 015616 GPHARD R0O,RO ;GET HARDWARE P TABLE FROM puree 
3281 015616 104442 TRAP CS$GPHRD 
3282 015620 IFCOND CS THEN 
3283 015620 103036 BCC 503118 
3284 015622 LET TSSR(R5) := (RO) ;SAVE TSSR ADDRESS. 
3285 015622 011065 002462 MOV (RO), TSSR(RS) 
3286 015626 LET TSDB(R5) := (RO)+ - #2 ;SAVE TSDB ADDRESS. 
3287 015626 012065 002452 MOV (RO)+, TSDB(RS) 
3288 015632 162765 000002 002452 SUB #2, TSDB(R5) 
3289 015640 LET TSVCT(RS) z= (RO) ;SAVE INTERRUPT VECTOR ADDRESS. 
3290 015640 011065 002472 MOV (RO) ,TSVCT(RS) 
3291 015644 SETVEC TSVCT(R5),TS4INT(RS) AINTPRI ;SET UP INTERUPT PROCESSING CONDITIONS. 
3292 015644 012746 000340 MOV #INTPRI,-(SP) 
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3293 015650 016546 002512 MOV TS4INT(RS) ,=(SP) 
3294 015654 016546 002472 MOV TSVCT(R5) ,-(SP) 
3295 015660 012746 000003 ‘ MOV #3,-(SP) 
3296 015664 104437 TRAP C$SVEC 
3297 015666 062706 000010 ADD #10,SP 
3298 015672 IF R3 NE #0 THEN sACTUAL PASSCOUNT UPDATE PER R3 
3299 015672 005703 . JST R3 
3300 015674 001410 BEQ 50312$ 
3301 015676 IF R3 LT #0 THEN 
3302 015676 005703 TST R3 
3303 015700 002003 BGE 503138 
3304 015702 LET PASCNT(RS) := PASCNT(R5) + #1 
3305 015702 005265 002764 INC PASCNT(RS) 
3306 015706 ELSE 
3307 015706 000403 BR 50314$ 
3308 015710 503138: 

3309 015710 LET PASCNT(R5) := #1 

3310 015710 012765 000001 002764 MOV #1,PASCNT(R5S) 
3311 015716 ENDIF 

3312 015716 503148: 

3313 015716 ENDIF 

3314 015716 50312$: 

3315 015716 ENDIF 

3316 015716 503118: 

3317 015716 LET RECCNT(R5) := #0 ;CLEAR RECORD COUNT 

3318 015716 005065 003034 CLR RECCNT(R5S) 
3319 015722 004737 013530 JSR = PC,NEXTU D0 1T FOR ALL DEVICES. 

3320 015726 ENDDO 

3321 015726 000724 BR 50307$ 

3e56 015730 503108: 

3324 015730 IF R2 EQ #0 THEN 71F THERE ARE NO UNITS: 

3325 015730 005702 TST R2 

3326 015732 001026 , BNE 50315$ 

3327 015734 PRINTF #AUDRPM ;PRINT ALL UNITS DROPPED, 

3328 015734 012746 004351 ; MOV #AUDRPM,-(SP) 
3329 015740 012746 000001 MOV #1,-(SP) 
3330 015744 010600 MOV RO 

3331 015746 104417 ; TRAP CSPNTF 

3332 015750 062706 000004 ADD #4, 

3333 015754 DELAY 2000. 360 TO SUPERVISOR, WAIT 2 SECONDS. 

3334 015754 012727 003720 MOV #2000. ,(PC)+ 
3335 015760 000000 -WORD 0 

3336 015762 013727 002116 MOV LSDLY,(PC)+ 
3337 015766 000000 -WORD 0 

3338 015770 005367 177772 DEC ~6(PC) 

3339 015774 001375 BNE 274 

3340 015776 005367 177756 DEC -22(PC) 
3341 016002 001367 BNE 720 

3342 016004 BREAK :G0 TO SUPERVISOR, CHECK TTY. 

3343 016004 104422 TRAP C$BRK 

3344 016006 DOCLN ;D0 CLEAN CODE + ABORT PASS. 

3345 016006 104444 TRAP C$OCLN 

3346 016010 ENDIF 

3347 «016010 50315$: 





‘ 
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3349 016010 SETPRI #PRIO0 ; LOWER CPU PRIORITY TO 0 

3350 016010 012700 000000 MOV #PR100,RO 

3351 016014 104441 TRAP CS$SPRI 

3352 016016 IFB IREC EQ #0 AND #ADR NOTSETIN OPFLAG THEN ;1F ERROR RECOVERY IS ENABLED 
3353 016016 105737 002211 TSTB IREC 

3354 016022 001145 - BNE 503168 

3355 016024 032737 000020 003162 BIT #ADR ,OPFLAG 

3356 016032 001141 BNE 503168 

3357 016034 004737 013462 JSR PC,FIRSTU ;AND AUTO-DROP NOT CALLED, THEN SET UP FOR FIRST 
3358 016040 WHILE DEVTBL(R5) NE #END DO ;WHILE THERE ARE MORE DEVICES: 

3359 016040 50317$: 

3360 016040 026527 002532 177777 CMP DEVTBL(R5) , #END 
3361 016046 001533 , BEQ 503208 

3362 016050 BEGIN COUNTER ;START 3.5 MINUTE COUNTER 

3363 016050 INCR TIME1 FROM #1 TO #25 BY #1 

3364 016050 012737 000001 003074 MOV #1,T1ME1 

3365 016056 000402 BR 50322$ 

3366 016060 50323$: 

3367 016060 005237 003074 INC TIME 

3368 016064 50322$: 

3369 016064 023727 003074 000025 CMP TIME1, #25 

3370 016072 003106 BGT 50324$ 

3371 016074 LET @TSDB(R5) := AGSCPK ;AND GET UNITS STATUS 

3372 016074 012775 002320 002452 MOV #GSCPK ,aTSDB(RS) 
3373 016102 DELAY 1000. ;WAIT 1 SECOND 

3374 016102 012727 001750 MOV #1000. ,(PC)+ 
3375 016106 000000 -WORD 0 

3376 016110 013727 002116 MOV LSDLY,(PC)+ 

3377 016114 000000 “ -WORD 0 

3378 016116 005367 177772 ‘ DEC -6(PC) 

3379 016122 001375 BNE 74 

3380 016124 005367 177756 DEC -22(PC) 

3381 016130 001367 BNE -720 

3382 016132 IF #TS.SSR SETIN @TSSR(R5) THEN 

3383 016132 032775 000200 002462 BIT #TS.SSR,ATSSRCRS 
3384 016140 001420 BEQ 503258 

3385 016142 ’ IF #TS.OFL NOTSETIN @TSSR(R5) THEN 

3386 016142 .032775 000100 002462 BIT #TS.OFL,QTSSR(RS 
3387 016150 001001 BNE 50326$ 

3388 016152 LEAVE COUNTER sEXIT COUNTER WHEN UNIT ON LINE 

3389 016152 000456 BR 50321$ 

3390 016154 ELSE 

3391 016154 503268: 

3392 016154 PRINTF #OFLINM,DEVTBL(R5) ;PRINT UNIT OFF LINE EVERY 10 SEC 

3393 016154 016546 002532 MOV DEVTBL(RS) .-(SP) 
3394 016160 012746 004633 MOV #OFLINM,=(SP) 
3395 016164 012746 000002 MOV #2,-(SP) 

3396 016170 010600 MOV SP RO 

3397 016172 104417 ‘ TRAP CSPNTF 

3398 016174 062706 000006 ADD #6,SP 

3399 016200 ENDIF 

3400 016200 503278: 

3401 016200 ELSE 

3402 016200 000412 BR 503308 

3403 016202 503258: 

3404 016202 PRINTF #NRDYM,DEVTBL(RS) 
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3405 016202 016546 002532 MOV DEVTBL(RS) ,-(SP) 
3406 016206 012746 017134 MOV #NRDYM,-(SP) 
3407 016212 012746 000002 ‘: q MOV #2,-(SP) 
3408 016216 010600 MOV SP,RO 
3409 016220 104417 TRAP CSPNTF 
3410 016222 062706 000006 ADD #6,SP 
3411 016226 ENDIF 
3412 016226 50330$: 

3413 016226 INCR TIME2 FROM #1 TO #13 BY #1 

3414 016226 012737 000001 003076 MOV #1, TIME2 
3415 016234 000402 BR 503318 
3416 016236 50332$: 

3417 016236 005237 003076 INC TIME2 
3418 016242 50331$: 

3419 016242 023727 003076 000013 CMP TIME? #15 
3420 016250 003016 BGT 50333$ 
3421 016252 " DELAY 1000. ;WAIT FOR UNIT TO BE SET ON-LINE 

3422 016252 012727 001750 MOV #1000. ,(PC)+ 
3423 016256 000000 -WORD 0 

3424 016260 013727 002116 MOV LSDLY,(PC)+ 
3425 016264 000000 -WORD 0 

3426 016266 005367 177772 ' DEC -6(PC) 
3427 016272 001375 BNE 74 

3428 016274 005367 177756 DEC -22(PC) 
3429 016300 001367 BNE -720 

3430 016302 BREAK ALLOW TERMINAL INTERRUPT 

3431 016302 104422 TRAP C$BRK 
3432 016304 ENDINC 

3433 016304 000754 BR 50332$ 
3434 016306 503338: 

3435 016306 ; ENDINC 

3436 016306 000664 BR 50323$ 
3437 016310 503248: 

3438 016310 END COUNTER 

3439 016310 503218: 

3440 016310 IF TIME1 GT #25 THEN :IF OFF LINE FOR 3.5 MINUTES 

3441 016310 023727 003074 000025 CMP TIME #25 
3442 016316 003404 BLE 50334$ 
3443 016320 004737 010554 JSR PC,MOVMSG ;GET MESSAGE PACKET 

3444 016324 0047357 011246 JSR PC,TCCI1 ;PRINT ERROR AND DROP OFF LINE UNIT 

3445 016330 ENDIF 

3446 016350 50334$: 

3447 ;REPEAT UNTIL ON LINE OR TIMED OUT. 
3448 016330 004737 013550 JSR PC,NEXTU ;SET UP FOR NEXT UNIT. 

3449 016334 ENDDO 

3450 016334 000641 BR 50317% 
3451 016336 503208: 

3452 016336 ENDIF 

3453 016336 50316$: 

3454 016336 1FB PWRFLG EQ #0 THEN 

3455 016336 105737 003157. TSTB PWRELG 
3456 016342 001026 BNE 503358 
3457 016344 MEMORY DATAWT ;REQUEST MEMORY FROM SUPER FOR RD/WR BUFFERS. 
3458 016344 104431 TRAP CSMEM 
3459 016346 010037 003044 . MOV RO.DATAWT 
3460 016352 LET DATARD := DATAWT + #DATCNT ;SET RD BFR AD 
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013737 
3462 016360 062737 


027727 
002011 


6376 012746 
012746 


= 
o 
5S 
oO 
~m 


062706 
104444 


3477 016420 


3479 016420 
105037 


012703 
004737 
3485 016434 105037 


3487 016440 
104432 


3496 016510 047045 
3497 016512 040445 
3498 016520 040517 
3499 016526 046040 
3500 016534 020122 
3501 016542 047045 
3502 016546 
3503 


3506 016546 104411 


24-AUG-79 
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003044 
004000 


164452 


016444 
000001 


000004 


002212 


003156 
010504 


003157 


051106 


043102 
042522 


003046 
003046 


004000 


042505 
020117 
046523 
047506 
053455 
051522 


046055 
047111 
042507 
047515 
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1F Q@DATAWT LT #DATCNT THEN 


PRINTF #MEMOM 


DOCLN 
ENDIF 
ENDIF 


LET CHGFLG :B= #0 
LET R3 := #ENDFLG 
JSR PC,CLRERR 
LET PWRFLG :B= #0 


EXIT INIT 


MOV 


ADD 
;WHEN NOT ENOUGH FREE Oe 


BGE 
;WARN OPERATOR 


;AND ABORT PASS 
TRAP 


DIAG MUST BE RE-LOADED IN A CPU WITH LARGER MEMO 
503368: 


50335$: 
;CLR CHANGE CMD SEQ TBL FLAG. 
CLRB 


MOV 
;CLEAR ALL FLAGS. 
;CLEAR THE POWER FAIL FLAG. 
CLRB 


TRAP 
«WORD 
-ASCI1 /%AFREE MEMO TOO SMALL FOR RD-WR BFRS&N/ 
-ASCIZ /%ARE-LOAD IN LARGER MEMOZN/ 
-EVEN 
ENDINIT 
TRAP 


SEQ 0122 
DATAWT ,DATARD 
#DATCNT ,DATARD 
ABLE 
QDATAWT , #DATCNT 
50336$ 
#MEMOM,-(SP) 
#1.<(SP) 
CSPNTF 
#4,SP 
CSDCLN 


CHGFLG 
#WENDFLG,R3 


PWRFLG 


CSEXIT 
L10012-. 


CSINIT 


; G6 10 
iia SECTIONS MACY11 30(1046) 24-AUG-79 09:10 PAGE 87 


CZTSHB.P11 24-AUG-79 09:08 AUTO DROP SECTION SEQ 0123 
3507 -SBTTL AUTO DROP SECTION 
3309 
3510 SECTION EXECUTED AFTER THE INIT CODE WHEN ‘‘ADR’’ FLAG IS SET BY OPERATOR 
3511 sSECTION CHEKS FOR A VALID INTERFACE LOCATION. DROPS UNIT IF NO RESPONSE 
3512 : FROM INTERFACE 
3513 pes 
3514 
3515 016550 BGNAUTO 
gene 016550 LSAUTO: : 
3518 016550 004737 013462 JSR PC,FIRSTU sFIND FIRST UNIT 
3519 016554 WHILE DEVTBL(RS) NE #END DO 3 
3520 016554 503378: 
3521 016554 026527 002532 177777 CMP DEVTBL(RS) ,#END 
3522 016562 001525 BEQ 50340$ 
3523 016564 LET TRAPD4 :B= #0 ; 
3524 016564 105037 003160 CLRB TRAPD4 
3525 016570 SETVEC #4,#TRAP4,#PRIO7 ;SET VECTOR 4 
3526 016570 012746 000340 MOV #PRIO7,-(SP) 
3527 016574 012746 017164 MOV #TRAPG ,-(SP) 
3528 016600 012746 000004 MOV #4,-(SP) 
3529 016604 012746 000003 MOV #3,-(SP) 
3530 016610 104437 TRAP CS$SVEC 
3531 016612 062706 000010 ADD #10,SP 
3532 016616 LET R2 := aTSSR(RS) sADDRESS 1TS11 INTERFACE 
3533 016616 017502 002462 MOV @TSSR(R5) ,R2 
3534 016622 CLRVEC #4 ;CLEAR VECTOR AT 4 
3535 016622 012700 000004 MOV #4,R0 
3536 016626 104436 TRAP CS$CVEC 
3537 016630 IFB TRAPD4 NE #0 THEN 
3538 016630 105737 003160 TSTB TRAPDS 
3539 016634 001423 BEQ 503418 
3540 016636 LET FTLCNT(RS) := FTILCNT(RS) + #1 
3541 016636 005265 003024 INC FILCNT(RS) 
3542 016642 PRINTF #AUTODM, TSSR(R5S) ;PRINT ERROR - 
3543 016642 016546 002462 y MOV TSSR(RS) ,- (SP) 
3544 016646 012746 017040 MOV #AUTODM,-(SP) 
3545 016652 012746 000002 MOV #2,-(SP) 
3546 016656 010600 MOV P,RO 
3547 016660 104417 TRAP CSPNTF 
3548 016662 062706 000006 ADD #6,SP 
3549 016666 LET DROPN := DEVTBL(RS) sSAVE # OF UNIT TO BE DROPPED. 
3550 016666 016537 002532 013766 | MOV DEVTBL(RS) ,DROPN 
3551 016674 LET RO := RS SHIFT -1 ;RO=LOGICAL eat _—s 
3552 016674 010500 R5,RO 
3553 016676 006200 RO 
3554 016700 DODU RO ;DROP THE UNIT: EXEC BGNDUENDDU CODE IF 1DU = 0 
3555 016700 104451 TRAP C$D0DU 
3556 016702 ELSE 
3557 016702 000452 BR 503428 
3558 016704 503418: 
3559 016704 LET @TSDB(R5) := #GSCPK sSEND GET STATUS COMMAND 
3560 016704 012775 002320 002452 MOV #GSCPK ,aTSDB(RS) 
3561 016712 004737 010520 JSR PC,WSSR sWAIT 
3562 016716 IF #TS.SSR SETIN ATSSR(RS) THEN 
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SHB. 


017036 


017036 
017036 
017036 


032775 
001425 


032775 
001416 


005265 


016546 


004737 


000416 


005265 
016546 


004737 


004737 
000647 


104461 
040445 


022440 
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000200 | 


000100 


003024 
002532 


004633 
000002 


000006 
013704 


003024 
002532 


017134 
000002 


000006 
013704 


013530 


052502 


050101 
047445 


044501 


030504 


002462 


002462 


L10013: 


020123 AUTODM: 
040440 


022466 
052116 


NRDYM: 
040445 


IF #TS.OFL SETIN @TSSR(R5) THEN 
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LET FILCNT(RS) <= 


JSR PC,DROPUA 
ENDIF 


ELSE 


LE 


JS 


T FILCNT(RS) := 


R PC,DROPUA 


ENDIF 


ENDIF 


JSR PC 
ENDDO 


ENDAUTO 


-ASCII 


eNEXTU 


/%ABUS TRAP AT %06%2N/ 


FILCNT(R5) + #1 
PRINTF #OFLINM,DEVTBL(R5) 


FILCNT(R5) + #1 
PRINTF #NRDYM,DEVTBL(R5) 


503448: 


50343$: 


503458: 
503428: 


503408: 


-ASCIZ /%AINTERFACE BAD OR NOT SET TO ABOVE AD&N/ 


-ASCIZ 


/ZAUNIT %D1%A NOT RDY2N/ 


TRAP 


SEQ 0124 
#TS.SSR,ATSSRORS 
50343$ 


ATS.OFL,@TSSR(RS 
50344$ 


FTILCNT(RS) 


DEVTBL(R5) ,-(SP) 
hr bat 


50345$— 


FTLCNT(R5) 


DEVTBL(R5) ,-(SP) 
#NRDYM,-(SP) 
#2,-(SP) 

SP,RO 

CSPNTF 

#6,SP 


50337$ 


C$AUTO 
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3619 017150 047040 052117 051040 
017156 054504 047045 000 
3621 017164 -EVEN 


3623 : DEVICE BUS TRAP HANDLER 
3624 : OUTPUT: TRAPD4 BYTE 1: TRAPED AT 4 
3625 : 0: NO TRAP 


TRAP4:: LET TRAPD4 :B= TRAPD4 + #1 
4 105237 003160 INCB TRAPD4 
70 000002 RTI 


J 10 
liga pli SECTIONS MACY11 30(1046) 24-AUG-79 09:10 PAGE 90 


24-AUG-79 09:08 CLEANUP CODING SECTION SEQ 0126 
3633 -SBTTL CLEANUP CODING SECTION 
3634 
3635 p++ 
3636 : THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
3637 ; AT THE END OF EACH PASS. 
3638 :-- 
3639 
3640 017172 BGNCLN 
3641 017172 LSCLEAN:: 
3642 
3643 
3644 017172 004737 013462 JSR PC,FIRS sFIND FIRST UNIT. 
3645 017176 WHILE DEVIBLIRS)” NE #END DO 
3646 017176 50346$: 
3647 017176 026527 002532 177777 CMP DEVTBL(R5S) ,#END 
3648 017204 001413 BEQ 50347$ 
3649 017206 004737 010520 JSR PC,WSSR sWAIT FOR UNIT READY OR TIMEOUT, 
3650 017212 LET @TSDB(RS5) := #BRCPK ; ISSUE MSG BUFFER RELEASE CMD. 
3651 017212 012775 002324 002452 MOV #BRCPK ,ATSDB(RS) 
3652 017220 CLRVEC TSVCT(RS) sRELEASE INTERRUPT VECTORS FOR ALL DEV 
3653 017220 016500 002472 MOV TSVCT(RS), RO 
3654 017224 104436 TRAP C$CVEC 
3655 017226 004737 013530 JSR PC,NEXTU sFIND NEXT UNIT. 
3656 017232 ENDDO 
3657 017232 000761 ; BR 50346$ 
3658 017234 503478: 
3659 
3660 017234 EXIT CLN 
3661 017234 104432 TRAP CSEXIT 
3662 017236 000002 «WORD 110014-. 
3663 EVEN 
3664 
3665 017240 ENOCLN 
3666 017240 L10014: 


3667 017240 104412 TRAP C$CLEAN 
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017242 
017242 


017242 


017302 
017306 


24-AUG- 


010005 
006305 


012765 


016500 
104436 


013746 


062706 


000167 
000000 


104455 


177774 002532 
002472 


013766 
004322 
000002 


000006 
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DROP UNIT SECTION 


-SBTTL DROP UNIT SECTION 


3 ++ 
; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 


; TO NO LONGER BE TESTED. 


sMACRO IS CALLED WHILE IDU FLAG IS NOT SET BY OPERATOR 


L$DU 


L10015: 


BGNDU 


LET RS := RO SHIFT 1 


LET DEVTBL(R5S) := 


CLRVEC TSVCT(RS) 


SEQ 0127 
THAT CODE SHALL BE EXECUTED WHEN DODU 
3R5 = LOGICAL DEVICE NUMBER X 2. 
MOV RO,R5 
ASL R5 
#NINUSE ;SET NOT IN USE FLAG FOR THE DEVICE. 
MOV #NINUSE ,DEVTBL(R 
RELEASE THE INTERRUPT VECTOR. 
MOV TSVCT(R5) RO 
CSCVEC 


PRINTF #DROPDM,DROPN 


EXIT DU 


-EVEN 
ENDDU 


TRAP 
PRINT DROP DEVICE MESSAGE 
MOV 


DROPN,-(SP) 
MOV et aaa 


MOV SP, 

TRAP CSPNTF 
ADD #6,SP 
«WORD JSJMP 


«WORD 110015-2-. 


TRAP C$DU 
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3703 -SBTTL ADD UNIT SECTION 


| 
Z 


344 
3706 : THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVI 
3707 : TO BE (A) TESTED FOR THE FIRST TIME, OR (B) RESUMED IN TES 
Th ; “EF.AUNIT'' IS SET, THE UNIT WILL BE TESTED AS A NEW UNIT. 


7314 BGNAU 
7314 LSAU:: 


CE 
TING. IF 


3715 017314 LET RS := RO SHIFT 1 3R5 = LOGICAL DEVICE NUMBER X 2. 
3716 017314 010005 MOV RO.R5 
3717 017316 006305 ASL R5 
3718 017320 LET DEVTBL(RS) := RO ;STORE UNIT # IN DEVICE TABLE. 
3719 017320 010065 002532 MOV RO,DEVTBL(RS) 
3720 017324 GPHARD RO,RO GET HARDWARE P TABLE FROM SUPER. 
3721 017324 104442 TRAP CS$GPHRD 
3722 017326 LET TSSR(R5) := (RO) SAVE TSSR ADDRESS. 
3723 017326 011065 002462 MOV (RO), TSSR(R5S) 
3724 017332 LET TSDB(RS) := (RO)+ = #2 ;SAVE TSDB ADDRESS. 
3725 017332 012065 002452 MOV (RO)+,TSDB(RS) 
3726 017336 162765 000002 002452 SUB #2, TSDB(RS) 
3727 017344 LET TSVCT(R5S) := (RO) ;SAVE INTERRUPT VECTOR ADDRESS. 
3728 017344 011065 002472 MOV (RO) ,TSVCT(RS) 
3729 017350 SETVEC TSVCT(R5), TSGINT(RS) ,MINTPRI SET UP INTERUPT aca CONDITIONS. 
3730 017350 012746 000340 MOV #INTPRI ,~(SP) 
3731 017354 016546 002512 MOV TSGINT(RS) ,=(SP) 
3732 017360 016546 002472 MOV TSVCT(RS) ,=(SP) 
3733 017364 012746 000003 MOV #3,-(SP) 
3734 017370 104437 TRAP C$SVEC 
017372 062706 000010 ADD #10,SP 

3736 017376 LET INTFLG(R5) := #0 ;CLEAR INTERRUPT FLAGS. 

* 017376 005065 003124 CLR INTFLG(RS) 


3739 017402 EXIT AU 
3740 017402 000167 -WORD JSJMP 

3741 017404 000000 -WORD L10016-2-. 
3743 -EVEN 

3745 017406 ENDAU 

3746 017406 L10016: 

3747 017406 104452 TRAP C$AU 


3749 017410 ENDMOD 
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3751 : 
Les -TITLE HARDWARE TESTS 
tes -SBTTL TEST 1: BASIC FUNCTIONS. 
3756 p++ 
seee ; TEST TO EXECUTE ALL TSO04 FUNCTIONS. 
3759 
3760 017410 BGNMOD 
3761 
3762 017410 BGNTST 
3765 017410 Tis: 
3765 017410 LET RANDOM :B= #0 :CLR THE RANDOM OPERATIONS FLAG. 
3766 017410 105037 003145 CLRB RANDOM 
3767 017414 LET EXPBOT :B= #0 :CLR EXPECT BOT FLAG. 
ares 017414 105037 003144 CLRB EXPBOT 
3770 017420 BGNSUB ;SUBTEST 1 - SET CHAR, DRIVE INIT, GET STATUS. 
3771 017420 T1.1: 
72 017420 104402 TRAP C$BSUB 
3774 017422 LET R2 := #BFSEQO sADR OF CMD SEQ. 
3775 017422 012702 020246 MOV #BFSEQO,R2 
3776 017426 004737 020222 JSR PC,BFSEQ :SET UP CMD SEQ. 
3777 017432 004737 006204 JSR PC,EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3778 017436 004737 013462 JSR PC, FIRSTU sFIND THE FIRST UNIT. 
3779 017442 WHILE DEVTBL(R5S) NE #END DO “WHILE THERE ARE URORE DEVICES: 
3780 017442 503508: 
3781 017442 026527 002532 177777 CMP DEVTBL(RS) ,#END 
3782 017450 001434 : BEQ 503518 
3783 017452 LET R2 := MSGPKA(RS) GET MSG PACKET ADR, 
3784 017452 016502 002502 MOV MSGPKA(RS) ,R2 
3785 017456 LET R2 := R2 + #12 :GET XSTAT2 ADR, 
3786 017456 062702 000012 ADD #12,R2 
3787 017462 LET TS4CL(R5) := (R2) CLR.BY #177400 ;STORE CODE LEVEL FROM DTR BYTE, 
3788 017462 011265 002522 MOV (R2), TS4CL(R5) 
3789 017466 042765 177400 002522 BIC #177400, TS4CL(RS 
3790 017474 IF PASCNT(RS) EQ #1 THEN :1f THIS IS PASS 1 THEN: 
3791 017474 026527 002764 000001 CMP PASCNT(RS) #1 
3792 017502 001014 BNE 503528 
3793 017504 PRINTF #CODELM,DEVTBL(R5), TS4CL(R5) ;PRINT THE TSO4 MICROCODE LEVEL. 
3794 017504 016546 002522 MOV TS4CL(R5) (SP) 
3795 017510 016546 002532 E MOV DEVTBL(R5),-(SP) 
3796 017514 012746. 003476 MOV #CODELM,-(SP) 
3797 017520 012746 000003 MOV #3,-(SP) 
3798 017524 010600 MOV SP RO 
3799 017526 104417 TRAP CSPNTF 
3800 017530 062706 000010 ADD #10,SP 
3801 017534 ENDIF 
3802 017534 503528: 
3803 017534 004737 013530 JSR PC, NEXTU sFIND NEXT UNIT. 
3 017540 ENDDO 
3805 017540 000740 BR 503508 
3 017542 503518: 
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3807 017542 
3808 017542 
3809 017542 194405 
3810 
3811 017544 
3812 017544 
3813 017544 104402 
3814 
3815 017546 
3816 017546 012702 020320 
3817 017552 004737 020222 
3818 017556 004737 006204 
3819 017562 
3820 017562 105037 003156 
3821 017566 
3822 017566 
3823 017566 104403 
3824 
3825 017570 
3826 017570 
3827 017570 104402 
3828 
3829 017572 
3830 017572 012702 020332 
3831 017576 004737 020222 
3832 017602 004737 006204 
3833 017606 
3834 017606 
3835 017606 104403 
3836 
3837 017610 
3838 017610 
3839 017610 104402 
3840 
3841 017612 
3842 017612 012702 020424 
3843 017616 004737 020222 
3844 017622 004737 006204 
3845 017626 
3846 017626 
3847 017626 104405 
3848 
3849 017630 
3850 017630 
3851 017630 104402 
3852 
3853 017632 
3854 017632 012702 020476 
3855 017636 004737 020222 
3856 017642 004737 006204 
3857 017646 
3858 017646 
3859 017646 104403 
0 
0 


ieee * At 10. PAGE 94 
1: BASIC FUNCTIONS. 


L10020: 


T1238 


L10021: 


71.3: 


L10022: 


71.4: 


L10023: 


73.32 


L10024: 


11.6: 


ENDSUB 


BGNSUB 


LET R2 := 


JSR 


#BFSEQ1 


PC,BFSEQ 
PC, EXALL 


JSR 
eT STAFLG :B= #0 


ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


LET R2 := 


JSR 
JSR 
ENDSUB 


BGNSUB 


#BFSEQ2 


PC,BFSEQ 
PC,EXALL 


#BFSEQ3 


PC,BFSEQ 
PC,EXALL 


#BFSEQ4 


PC,BFSEQ 
PC,EXALL 


TRAP CSESUB 


SUBTEST 2 - REWIND. 


TRAP C$BSUB 


;ADR OF CMD SEQ. 


SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 
CLEAR START FLAG 


MOV #BFSEQI,R2 


CLRB STAFLG 

TRAP C$ESUB 
;SUBTEST 3 - WRITE/VERIFY. 

TRAP C$BSUB 


;ADR OF CMD SEQ. 


MOV #BFSEQ2,R2 
;SET uP CMD SEQ 
EXECUTE CMD SEQ ON ALL DEVICES. 


TRAP CSESUB 


;SUBTEST 4 - WRITE TAPE MARK, ERASE. 


TRAP C$BSUB 


sADR OF CMD SEQ. 


;SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 


MOV #BFSEQ3.R2 


TRAP CS$ESUB 
;SUBTEST 5 = SPACE FILES. 
TRAP C$BSUB 


sADR OF CMD SEQ. 


;SET UP CMD SEQ. 
EXECUTE CMD SEQ ON ALL DEVICES. 


MOV #BFSEQ4,R2 


TRAP C$ESUB 


; SUBTEST 6 = SPACE RECORDS. 


SEQ 0130 
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cer 017650 104402 TRAP ($8SUB 
3865 017652 LET R2 := #BFSEQS ;ADR OF CMD SEQ. 
3866 017652 012702 020540 MOV #BFSEQS,R2 
3867 017656 004737 020222 JSR PC ,BFSEQ ;SET UP CMD SEQ. 
3868 017662 004737 006204 JSR PC,EXALL EXECUTE CMD SEQ ON ALL DEVICES. 
3869 017666 ENDSUB 
3870 017666 L10025: 
+14) 017666 104403 TRAP C$ESUB 
3873 017670 BGNSUB ;SUBTEST 7 = WRITE RETRY. 
3874 017670 11.7: 5 
484 017670 104402 TRAP C$B8SuUB 
3877 017672 LET R2 := WBFSEQ6 sADR OF CMD SEQ. 
3878 017672 012702 020612 MOV #BFSEQ6,R2 
3879 017676 004737 020222 JSR PC,BFSEQ SET UP CMD SEQ. 
3880 017702 004737 006204 JSR PC,EXALL EXECUTE CMD SEQ ON ALL DEVICES. 
3881 017706 ENDSUB 
3882 017706 L10026: ; 
tocr 017706 104403 . _ TRAP C$ESUB 
3885 017710 BGNSUB SUBTEST 8 - READ REV RETRY. 
3 017710 71.8: 
344 017710 104402 TRAP C$BSUB 
3889 017712 LET R2 := #BFSEQ7 sADR OF CMD SEQ. 
3890 017712 012702 020644 MOV #BFSEQ7,R2 
3891 017716 004737 020222 JSR PC ,BFSEQ SET UP CMD SEQ. 
3892 017722 004737 006204 JSR PC.EXALL sEXECUTE CMD SEQ ON ALL DEVICES. 
3893 017726 ENDSUB 
3894 017726 — ; L10027: , 
sone 017726 104405 TRAP C$ESUB 
3897 017730 BGNSUB ;SUBTEST 9 = READ FWD RETRY. 
3898 017730 11.9: 
444 017730 104402 ‘ TRAP C$BSUB 
3901 017732 LET R2 := #BFSEQ8 sADR OF CMD SEQ. 
3902 017732 012702 020676 MOV #BFSEQ8,R2 
3903 017736 004737 020222 JSR PC,BFSEQ ;SET UP CMD SEQ. 
3904 017742 004737 006204 JSR PC,EXALL EXECUTE CMD SEQ ON ALL DEVICES. 
3905 017746 ENDSUB 
3906 017746 L10030: 
to08 017746 104403 TRAP C$ESUB 
3909 017750 BGNSUB ;SUBTEST 10- CLEAN. 
3910 017750 71.10: 
44h 017750 104402 TRAP C$BSUB 
3913 017752 LET R2 := #BFSEQ9 sADR OF CMD SEQ. 
3914 017752 012702 020730 MOV #BFSEQ9,R2 
3915 017756 004737 020222 JSR PC ,BFSEQ ;SET UP CMD SEQ 
5916 017762 004737 006204 JSR PC,EXALL TEXECUTE CMD SEQ ON ALL DEVICES. 
3917 017766 ENDSUB 
3918 017766 L10031: 
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$058 017766 104403 TRAP C$ESUB 

3921 017770 BGNSUB ;SUBTEST 11 = WIV SWAPPED DATA BYTES. 

3922 017770 T1.11: 

tse 017770 104402 TRAP C$BSUB 

3925 017772 LET R2 := #BFSE10 ;ADR OF CMD SEQ. P 

3926 017772 012702 020752 MOV #BFSE10,R2 
3927 017776 004737 020222 JSR PC, hogy ;SET UP CMD SEQ. 

3928 020002 004737 006204 JSR PC,EXA sWRITE/VERIFY RECORDS 1 AND 2. 

3929 020006 eT SWBFLG :B= aT ENABLE BYTE SWAPPING. 

3930 020006 112737 000001 003150 MOVB #1, SWBFLG 
393} 020014 004737 006204 JSR PC,EXALL sWRITE/VERIFY RECORDS 3 AND 4. 

3932 020020 LET SWBFLG :B= #0 ;DISABLE BYTE SWAPPING. 

3933 020020 105037 003150 CLRB SWBFLG 

3934 020024 ENDSUB 

3935 020024 L10032: 

pe] 020024 104403 TRAP C$ESUB 

3938 020026 LET R2 := DATAWT + #10. ;INIT WRITE BUFFER POINTER. 

3939 020026 013702 003044 MOV DATAWT ,R2 
3940 020032 062702 000012 ADD #10. ,R2 
3941 020036 ‘ WHILE R2 NE DATAWT DO ;UNTIL 10 BYTES HAVE BEEN SWAPPED. 

3942 020036 503538: 

3943 020036 020237 003044 CMP R2,DATAWT 
3944 020042 001402 BEQ 50354$ 

3945 020044 000342 SWAB -(R2) SWAP DATA BYTES IN WRITE BUFFER. 

3946 020046 ENDDO 

3947 020046 000773 BR 50353$ 

3948 020050 50354$: 

3949 020050 LET T1ISWB :B= T1SWB + #1 ;SET T1 SWAP BYTES FLAG FOR ‘'CKDATA’’ SUBR 
ad 020050 105237 003153 INCB T1SWB 

3952 020054 BGNSUB ;SUBTEST 12 - READ SWAPPED DATA BYTES. 

3953 020054 T1.12: 

3055 020054 104402 TRAP C$B8SUB 

3956 020056 LET CMDWRD := #ROR ;CMD 1S READ REV. 

3957 020056 012737 104401 003056 : MOV #RDR,CMDWRD 
3958 020064 004737 012534 JSR PC,VFEXC VERIFY ODD LENGTH SWAP (RECORD 4). 

3959 020070 LET CMDPKT+CP.CNT := #12 ;CHANGE BYTE COUNT TO 10. 

3960 020070 012737 000012 002316 MOV #12,CMDPKT+CP.CN 
3961 020076 004737 012534. JSR PC,VFEXC ;VERIFY EVEN LENGTH SWAP (RECORD 3). 

3962 020102 LET SWBFLG :B= #1 ENABLE BYTE SWAPPING. 

3963 020102 112737 000001 003150 MOVB #1, SWBFLG 
3964 020110 LET CMDPKT+CP.CNT := #11 ;CHANGE BYTE COUNT TO 9. 

3965 020110 012737 000011 002516 . MOV #11, CMDPKT+CP.CN 
3966 020116 004737 012534 JSR PC, VFEXC VERIFY ODD LENGTH SWAP (RECORD 2). 

3967 020122 LET CMDPKT#CP.CNT := #12 ;CHANGE BYTE COUNT TO 10. 

3968 020122 012737 000012 002516 MOV ait Ee: CN 
3969 020130 004737 012534 JSR PC, VFEXC : VERIFY EVEN LENGTH SWAP (RECORD 1 

3970 020134 LET CMDWRD := #ROF :CMD 1S READ FWD. 

3971 020134 012737 104001 003056 MOV <3% CMDWRD 
3972 020142 004737 012534 JSR PC,VFEXC VERIFY EVEN LENGTH SWAP (RECORD 1) 

3973 020146 LET CMDPKT+CP.CNT := #11 ;CHANGE BYTE COUNT TO 9. 


3974 020146 012737 000011 002316 MOV ‘sad seme 
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3975 020154 004737 012534 PC, VFEXC VERIFY ODD LENGTH SWAP (RECORD 2). 
3976 020160 vet SWBFLG :B= #0 ;DISABLE BYTE SWAPPING. 
3977 020160 105037 003150 CLRB SWBFLG 
3978 020164 LET CMDPKT+CP.CNT := #12 ;CHANGE BYTE COUNT TO 10. 
3979 020164 012737 000012 002316 MOV #12,CMOPKT+CP.CN 
3980 020172 004737 012534 JSR PC,VFEXC VERIFY EVEN LENGTH SWAP (RECORD 3). 
3981 020176 eT CMDPKT#CP.CNT := #11 ;CHANGE BYTE COUNT TO 9. 
3982 020176 012737 000011 002316 MOV ty CMDPKT*CP.CN 
Ht 020204 004737 012534 JSR PC,VFEXC VERIFY ODD LENGTH SWAP (RECORD 4) 
3985 020210 ENDSUB 
3986 020210 L10033: 
4-44 020210 104403 TRAP C$ESUB 
3989 020212 LET T1SWB :B= #0 CLEAR T1 SWAP BYTES FLAG 
3990 020212 105037 003153 CLRB T1SWB 
3991 
3992 
3993 020216 EXIT TST 
3994 020216 104432 TRAP CSEXIT 


3995 020220 000554 WORD L10017-. 
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SHB.P 


020222 


020244 


020246 


020316 
020320 


020330 


020332 
020334 
020336 


ese 


- 


012701 
021227 
001402 
012221 
000773 


012711 
000207 


140004 


177777 


102010 
000001 
000002 
000000 
177777 


104105 
004000 
000001 


003164 


177777 


177777 


24-AUG-79 09:10 PAGE 
TEST 1: 


Se te Se Se Be 


BFSEQ: 


BFSEQO: 


BFSEQ1: 


BFSEQ2: 


BASIC F 


OUTPUTS: 


98 
UNCTIONS. 
SUBROUTINE TO MOVE 
INPUTS: R2 


REGISTERS: 


CALLS: 


LET R1 := 
WHILE (R2) NE #END 


#CMDSEQ 


DO 


LET (R1)* := (R2)¢ 


ENDDO 


LET (R1) 
RTS 


:= WEND 
PC 


11 


A COMMAND SEQUENCE TO THE SEQUENCE TABLE. 


FWA OF COMMAND SEQUENCE 


INIT SEQ TABLE ADDRESS. 


MOV 
;WHILE THERE ARE MORE COMMANDS: 
50355$: 


BASIC FUNCTION COMMAND SEQUENCE 


«WORD 


. WORD 


. WORD 


BEQ 
s;MOVE COMMANDS 10 SEQ TABLE. 
MOV 
BR 
50356$: 
;STORE END OF SEQUENCE CODE. 
MOV 
;RETURN. 
7SET CHAR. 200. (1) 
sDRIVE INIT. (2) 
sSET CHAR. 20 (3) 
3;GET STATUS. (4) 
:SET CHAR. 40. (5) 
sREWIND TWICE. (6) 
sWRITE/VERIFY PAT 1. (7) 


#CMDSEQ,R1 


(R2) ,MEND 
50356$ 
(R2)+,(R1)+ 


503558 


WEND,(R1) 


SEQ 0134 
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020340 


020422 
020424 


020474 
020476 


020512 


24-AUG-79 0 


000001 


177777 
100011 


177777 
105410 


000001 
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BFSEQ4: 


BASIC FUNCTIONS. 


. WORD 
BFSEQ3: 


. WORD 


1 

wiv 
— 
2 

WIV 
—— 
3 

WIV 
— 
4 

wiv 
ree 
5 

wiv 
_ 
6 

wiv 
paneeee 
0 

END 
WIM 


iWIV PAT 2. 
gWTv PAT 3. 
sWIVv PAT 4. 
sWTv PAT 5. 
sWTV PAT 6. 


sWwIv PAT 0. 


;WRITE TAPE MARK. 
WRITE 10 RECORDS. 
ERASE 10 TIMES. 
sWRITE TAPE MARK. 


;WIM RETRY 


SPACE 2 FILES REV. 


SPACE 2 FILES Fwd. 


(8) 


(9) 


(10) 


(11) 


(14) 


(15) 


(16) 


(17) 


(18) 


(19) 


(20) 


SEQ 0135 
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4108 020514 000000 


= 
_ 
oO 
o 
oOo 
So 
w 
_ 
o 
_ 
So 
uw 
- 
_ 
o 
“no 
= 
za 


SPACE 2 FILES REV. (21) 


ns 
ns 


sSPACE 2 FILES FwD. (22) 


020536 177777 - WORD 
020540 102010 BFSEQ5: 


z 
=) 


sREWIND. (23) 


£ 
=) 


= 
~” 


SPACE 7 RECORDS FWD. (24) 


SPACE 7 RECORDS REv. (25) 


P=] 
~ 


SPACE 7 RECORDS FwD. (26) 


xz 
Po) 


;SPACE 7 RECORDS REv. (27) 


=z 
9 


4139 020610 177777 . WORD 


4141 020612 102010 BFSEQ6: 
4142 020614 000001 


= 
o 


sREWIND. (28) 


* 
a 
nm 
~ 
o 
~ 
So 
w 
o 
o 
— 
fo] 
Ps 
= 
et 
o 
o--2 paliadiae ~edineas tele: pee ee mMon—Vvonr— 
z 


sWRITE. (29) 


= 
a 
&* 
w 
So 
~ 
i=) 
o 
~ 
~m 
— 
So 
= 
So 
So 
wn 
= 
e) 
a 


4149 020632 105005 WRR WRITE RETRY. (30) 


1 
4153 020642 177777 ~WORD END 
4155 020644 104401 BFSEQ7: ROR ;READ REV. (31) 


4159 020654 105401 RNR READ NEXT REV. ~ (32) 


4163 020664 125401 RNF ;READ NEXT FWD. (33) 
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020666 


020674 
020676 


020726 
020730 


020750 
020752 


020770 
020772 


020774 
020774 
020774 


004000 


177777 
104001 


177777 
101012 


177777 
104105 


000000 
177777 


104401 


BFSEQ8: 


BFSEQ9: 


BFSE10: 


110017: 


. WORD 


. WORD 


«WORD 


~ WORD 


« WORD 
~EVEN 


ENDTST 


DATCNT 


sREAD FWD. 


READ PREVIOUS FWD. 


READ PREVIOUS REV. 


s CLEAN, 


REWIND 


END OF SEQUENCE. 
sWRITE/VERIFY EVEN LENGTH. 


(34) 


(35) 


(36) 


(37) 


(38) 


sWRITE/VERIFY ODD LENGTH. 


TRAP 


(39) 


(40) 


CSETST 
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020776 
020776 
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112737 
105037 


012702 
005302 


010237 
005137 
004737 
105737 
001404 
004737 


105037 


012721 
012721 


012702 
005102 


010221 
012721 


020127 
002012 


063737 
013702 
042702 
004772 


000763 


000001 
003144 
004000 
003066 
sit 
003156 
006164 
003156 


104105 
004000 
177740 


000007 


003254 


003070 


003072 
177741 
021260 


177777 
006204 


sie * s1°3. 10 PAGE 


003145 


005072 


» SBTTL 


5; 7 
; TEST TO CHECK THE DATA RELIABILITY OF 


Té2% 


111 
102 


DATA RELIABILITY. 
TEST 2: DATA RELIABILITY. 


BGNTST 


LET RANDOM :B= #1 
LET EXPBOT :B= #0 
LET R2 := 


LET LENMSK := COMP R2 


MDATCNT = #1 


JSR PC,SETCH 
1FB STAFLG NE #0 THEN 


THE 1S04. 


SET THE RANDOM au wae 
Vv 
;CLEAR EXPECT BOT FLAG. 
CLRB 
SET UP THE RECORD nats SE, 
Vv 


;ALLOW MAXIMUM BUFFER. 


MOV 


COM 
:CMD 1 = SET CHARACTERISTIC. 
31F STARTING THEN: 


TSTB 
BEQ 
JSR  PC,SETRW :CMD2=REWIND 
LET STAFLG :B= #0 :CLR START FLAG. 
CLRB 
ENDIF 
iN 503578: 
LET (R1)* := #WTV r sCMD3 = WRITE/ VERIFY. 


LET (R1)¢* := #DATCNT 
LET R2 := 


LET (R1)*# := R2 
LET (R1)# := MRANP 


REPEAT 


WHILE R1 LT #SEQEND DO 


COMP #RNOPSC 


#1,RANDOP 
EXPBOT 
#DATCNT ,R2 
R2 


R2,LENMSK 
LENMSK 


STAFLG 
50357$ 


STAFLG 


#WTv,(RID)+ 


MOV 
SET BRF TO MAX FOR ue GENERATION. 


MOV 

COM 
331 OPERATIONS. 

MOV 
RANDOM PATTERN. 

MOV 


REPEAT TO EOT: 


LET RANS := RANS ¢ RANB 
LET R2 := RANS CLR.BY #177741 


JSR PC, @RANCMD(R2) 
ENDDO 


LET (R1) := END 


JSR 


PC,EXALL 


60$: 
sFILL SEQ TBL WITH RANDOM CMDS. 
503618: 


BSE 


ADD 
;R2 = RANDOM # (0 = 36). 
MOV 


BIC 
;SET UP A RANDOM CMD + BRF. 


#DATCNT, (RI 
#RNOPSC ,R2 
R2 


R2,(R1)¢ 
WRANP, (R1)* 


R1, #SEQEND 
50362% 
RANB ,RANS 
RANS ,R2 
#177741,R2 


503618 


503628: 
STORE END OF SEQUENCE CODE IN TABLE. 


BEND, (RT) 


MOV 
G0 EXECUTE ALL CMDS IN SEQUENCE TABLE. 


SEQ 0138 


+ 
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4263 021136 LET RI := #CMDSEQ INIT CMD SEQ TBL POINTER, : 
4264 021136 012701 003164 MOV —s- #CMDSEQ,R1 
4265 021142 UNTIL R2 NE #0 ;REPEAT UNTIL EOT 1S REACHED 

4266 021142 005702 TST —s_R2 

4267 021144 001753 BEQ ©: 503608 
4268 021146 LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS @ EOT 

4269 021146 105237 003154 wf INCB —ALLEOT 
4270 021152 000240 NOP ; 

4271 021154 000240 NOP : 

4272 021156 004737 006500 . JSR PC, EXSUB ;WRITE ONE RECORD BEYOND EOT ON ALL UNITS 
4273 021162 004737 014052 JSR —- PC, CKHAE $0 THAT SHORTER READ STOP DISTANCE 

427% SHALL POSITION HEAD IN CLEAN IRG GAP 

4275 021166 004737 021320 JSR PC, RANRD SET UP READ REV/FWD CMDS, 

4276 021172 LET CMDSEQ+4 := COMP #RNOPSC =; # OF RECORDS FOR READ REV. 

4277 021172 012737 177740 003170 MOV - #RNOPSC ,CMDSEQ+4 
4278 021200 005137 003170 : ‘ COM CMDSEQ+4 
4279 021204 LET CMDSEQ+14 := CMDSEQ+4 ;# OF RECORDS FOR READ FORWARD. 

4280 021204 013737 003170 003200 MOV CMDSEQ*4, CMDSEQ* 
4281 021212 LET (RI) := #END : ;STORE END OF SEQUENSE CODE IN SEQ TABLE. 
4282 021212 012711 177777 : MOV _-#END, (RT) 
4283 021216 004737 006204 JSR PC EXALL p GO EXECUTE READ REV/FWD OF LAST N RECORDS. 
4284 021222 LET ALLEOT :B= #0 : :CLEAR ALL UNITS @ EOT FLAG 

4285 021222 105037 003154 ; CLRB —_ALLEOT 
4286 021226 LET RPTFLG :B= #1 ;REQUEST PERFORMANCE REPORT DURING REWIND. 
4287 021226 112737 000001 003147 MOV =. #1 ,RPTFLG 
4288 021234 LET RI := #CMDSEQ INIT SEQ TBL POINTER, 

4289 021234 012701 003164 MOV —s- #CMDSEQ,R1 
4290 021240 004737 006166 JSR PC,SETRW ;STORE REWIND IN SEQ TBL, 

4291 021244 LET (Ri) := #END STORE END IN SEQ TBL, 

4292 021244 012711 177777 MOV _—-#END, (RT) 
4295 021250 004737 006204 JSR PC,EXALL EXECUTE REWIND CMD ON ALL UNITS 

4294 : 

4295 021254 EXIT ‘TST 

4296 021254 104432 TRAP CSEXIT 
4297 021256 000174 WORD L10034-. 
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4299 ; ADDRESSES OF SUBROUTINES USED TO SET UP RANDOM OPERATIONS IN 

ey : THE DATA RELIABILITY TEST. 

4302 021260 021406 RANCMD: RANWV sWRITE/VERIFY. 

4303 021262 021374 RANWR sWRITE. 

4 021264 021374 RANWR sWRITE. 

4305 021266 021374 RANWR sWRITE. 

4 021270 021374 RANWR sWRITE. 

4307 021272 021374 RANWR sWRITE. 

4308 021274 021374 RANWR sWRITE. 

4309 021276 021374 RANWR sWRITE. 

4310 021300 021320 RANRD READ. 

4311 021302 021320 RANRD READ. 

4312 021304 021320 RANRD sREAD. 

4313 021306 021320 RANRD READ. 

4314 021310 021320 RANRD ;READ. 

4315 021312 021320 RANRD ;READ. 

4316 021314 021329 RANRD yREAD. 

4317 021316 021320 RANRD sREAD. 

4318 

4319 

4320 

4321 

4322 

4323 : SUBROUTINE TO SET UP READ COMMANDS IN SEQUENCE TABLE. 

4324 ; INPUTS: 

4325 3 OUTPUTS: 

4326 : REGISTERS: R2 

re 3 : CALLS: 

4329 021320 RANRD: LET (R1)4* := #RDR STORE READ REV CMD. 

4530 021320 012721 104401 MOV #RDOR,(R1)¢ 
4331 021324 LET (R1)* := #DATCNT :SET BREF TO MAX FOR READ RANDOM LENGTHS. 
4332 021324 012721 004000 MOV #DATCNT,(R1)¢ 
4333 021330 LET RANB := RANB + RANS 

4334 021330 063737 003072 003070 ADD RANS ,RANB 
4335 021336 LET R2 := RANB CLR.BY #RNOPSC 

4336 021336 013702 003070 MOV RANB ,R2 
4337 021342 042702 177740 BIC #RNOPSC ,R2 
4338 021346 LET (R1)+# := R2 SET RANDOM # OF OPERATIONS. 

4339 021346 010221 MOV R2,(R1)+ 
4340 021350 LET (R1)* := #RANP RANDOM PATTERN. 

4341 021350 012721 000007 MOV WRANP, (R1)+ 
4342 021354 LET (R1)* := #RDE STORE READ FWD CMD. 

4343 021354 012721 104001 MOV #RDF,(R1)+ 
4344 021360 LET (R1)* := #DATCNT :SET BRF TO MAX TO READ RANDOM LENGTHS. 
4345 021360 012721 004000 MOV #DATCNT,(R1)¢ 
4346 021364 LET (R1)*# := R2 sSET RANDOM # OF OPERATIONS. 

4347 021364 010221 MOV R2,(R1)* 
4348 021366 LET (R1)+ := #RANP ;RANDOM PATTERN. 

4349 021366 012721 000007 MOV WRANP,(R1)+ 


4350 021372 000207 RTS PC 


a 
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4351 . ; SUBROUTINE TO SET UP A WRITE COMMAND IN THE SEQUENCE TABLE. 
4353 : OUTPUTS: 
4354 : REGISTERS: 
4355 : CALLS: 
4356 
4357 021374 RANWR: LET (R1)¢ := #WRT sSTORE WRITE CMD. 
4358 021374 012721 104005 MOV WWRT,(R1)4 
4359 021400 004737 021420 JSR PC,RANW :STORE BREF, # OF OPERATIONS, PATTERN. 
4360 021404 000207 RTS PC 
4361 
4362 
4363 
4364 
4365 
4366 : SUBROUTINE TO SET UP A WRITE/VERIFY COMMAND IN THE SEQUENCE TABLE. 
4367 : INPUTS: . 
4368 : OUTPUTS: 
4369 : REGISTERS: 
ry Hh ; CALLS: 
4372 021406 RANWV: LET (R1)¢ := #WTV :STORE WRITE/VERIFY CMD. 
4373 021406 012721 104105 MOV WWTVv,(R1)+ 
4374 021412 004737 021420 JSR PC,RANW sSTORE BRE, # OF OPERATIONS, PATTERN. 
4375 021416 000207 RTS PC 
4376 
4377 
4378 
4379 
4380 
4381 : SUBROUTINE TO STORE BRE, # OF OPERATIONS, PATTERN IN COMMAND 
4382 : SEQUENCE TABLE FOR WRITE AND WRITE/VERIFY COMMANDS. 
4383 3 INPUTS: 
4384 : OUTPUTS: 
4385 : REGISTERS: R2 
eset 3 CALLS: 
4388 021420 RANW: LET (R1)4 := #DATCNT :SET BREF TO MAX FOR PATTERN GENERATION. 
"4389 021420 012721 004000 MOV #DATCNT, (R1)¢ 
4390 :RANDOM BRF WILL BE GENERATED FOR EACH RECORD. 
4391 021424 LET RANB := RANB + RANS 
4392 021424 063737 003072 003070 ADD RANS ,RANB 
4393 021432 LET R2 := RANB CLR.BY #RNOPSC 
4394 021432 013702 003070 ia MOV RANB,R2 
4395 021436 042702 177740 BIC #RNOPSC,R2 
4396 021442 LET (R1)4+ := R2 SET RANDOM # OF OPERATIONS. 
4397 021442 010221 MOV R2,(R1)¢ 
4398 021444 LET (R1)+ := #RANP :RANDOM PATTERN. 
4399 021444 012721 000007 MOV #RANP,(R1)¢ 
4400 021450 000207 RTS PC ;RETURN. 
4401 
4402 .EVEN 
6403 ‘ 
4404 021452 ENDTST 
4405 021452 110034: 


4406 021452 104401 TRAP CSETST 
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SEQ 0142 


peer or 


HARDWARE TESTS MACY11 1,30¢1046), 


CZTSHB.P11 


021454 
021454 


021454 


021570 


021574 
021574 


021610 
21614 


24-AUG-79 


112737 
105037 


012702 
005302 


010237 


004737 
105037 


020127 
002003 
004737 
000772 
012711 
004737 
012701 


005702 
001762 


105237 


105037 
004737 


012711 
004737 


000001 
003144 
004000 


003066 


006164 
003156 


003254 
021374 


177777 
006204 


003164 


003154 


006500 
014052 


003154 
006164 


177777 
006204 
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TEST 3: 


WRITE COMPATABILITY/WRITE UTILITY. 


~SBTTL TEST 3: WRITE COMPATABILITY/WRITE UTILITY. 


344 
; TEST TO WRITE RECORDS FROM BOT TO EOT. 


BGNTST 
T3s: 

LET RANDOM :B= #1 
003145 

LET EXPBOT :B= #0 

LET R2 := #DATCNT - #1 

LET LENMSK := COMP R2 

JSR PC,SETCH 

JSR PC,SETRW 

LET STAFLG :B= #0 

REPEAT 


WHILE R1 LT #SEQEND DO 


JSR PC,RANWR 
ENDDO 
LET (R1) := #MEND 


JSR PC, EXALL 
LET R1 := #CMDSEQ 


UNTIL R2 NE #0 


LET ALLEOT :B= ALLEOT + #1 


PC ,EXSUB 
PC, CKHAE 


LET ALLEOT :B= #0 


JSR PC, SETRW 
LET (RI) c= 


JSR PC ,EXALL 
EXIT TST 


#END 


SET THE RANDOM ee _ 
Vv 
;CLEAR EXPECT BOT FLAG. 


#1, RANDOM 


LRB EXPBOT 
SET UP THE RECORD LENGTH MASK. 

MOV Sree 
ALLOW MAXIMUM BUFFER. 

R2,LENMSK 

COM LENMSK 
3CMD 1 = SET CHARACTERISTIC. 
;CMD2=REWIND 
;CLEAR START FLAG 

CLRB STAFLG 


sREPEAT TO EOT. 
0363$: 

sWHILE THERE IS MORE ROOM IN SEQ TABLE: 
503648: 


CMP R1, #SEQEND 

BGE 50365$ 
;STORE A WRITE CMD IN SEQUENCE TABLE. 

BR 50364% 


503658: 
STORE END OF SEQUENCE CODE IN TABLE. 
MOV #END,(R1) 


EXECUTE ALL CMDS IN SEQ TBL ON UNITS. 
INIT SEQ TBL POINTER, 


MOV 
;REPEAT UNTIL EOT IS —— 


#CMDSEQ,R1 


R2 

BEQ 503638 

;SET ALL UNITS @ EOT FLAG 
INCB ALLEOT 


sWRITE ONE RECORD BEYOND ECT ON ALL UNITS 
;S0 THAT SHORTER READ STOP DISTANCE 
SHALL POSITION HEAD IN CLEAN IRG GAP 
CLEAR ALL UNITS @ EOT FLAG 


CLRB ALLEOT 


:STORE REWIND IN SEQ TBL, 
STORE END IN SEQ TBL, 


MOV 
sEMECUTE REWIND CMD ON ALL UNITS 


#END, (RI) 


SEQ 0143 
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Sea 
| 
4464 621614 1046432 TRAP CSEXIT | 
4465 021616 000002 «WORD « 110035-. 
| 
| 
| 


4467 . EVEN 
4469 021620 ENDTST 


4470 021620 110035: 
4471 021620 104401 TRAP (SETS1 
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CZ1SHB.P11 24-AUG-79 09:08 TEST 3: WRITE COMPATABILITY/WRITE UTILITY. SEQ 0145 
4473 
ete .SBTTL TEST 4: READ COMPATABILITY/READ UTILITY. 
4476. 34+ 
mri : TEST TO READ ENTIRE TAPE FORWARD AND REVERSE. 
4479 
4480 021622 BGNTST ( 
rr 021622 T4:: ; 
4483 021622 LET RANDOM :B= #1 SET THE RANDOM OPERATIONS FLAG. 
4484 021622 112737 000001 003145 - MOVB #1, RANDOM 
4485 021630 LET EXPBOT :B= #1 :SET EXPECT BOT FLAG. 
4486 021630 112737 000001 003144 MOVB #1,EXPBOT 
4487 021636 004737 006140 JSR PC,SETCH :CMD 1 = SET CHARACTERISTIC. 
4488 021642 004737 006164 JSR PC,SETRW :CMD2=REWIND. 
4489 021646 LET STAFLG :B= #0 CLEAR START FLAG 
4490 021646 105037 . 003156 CLRB STAFLG 
4491 021652 LET (R1)+ := #ROF :CMD3 = READ FORWARD. 
4492 021652 012721 104001 MOV WROF,(R1)¢ 
4493 021656 LET (R1)# := #DATCNT :SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
6494 021656 012721 004000 MOV #DATCNT,(R1)¢ 
4495 021662 LET (R1)+* := #77777 :SET RECORD COUNT TO MAX FOR WHOLE TAPE. 
4496 021662 012721 077777 MOV #77777, (R1)4 
4497 021666 LET (R1)+ := #RANP :PATTERN = RANDOM. 
4498 021666 012721 000007 MOV WRANP, (R1)¢4 
4499 021672 LET (R1) := WEND :STORE END OF SEQUENCE CODE IN TABLE. 
4500 021672 012711 177777 MOV WEND, (R1) 
4501 021676 004737 006204 JSR PC,EXALL sEXECUTE ALL CMDS IN SEQ TBL ON ALL UNITS. 
4502 021702 LET ALLEOT :B= ALLEOT + #1 *FLAG TO ALLOW ALL UNITS AT EOT TO READ REV 
4503 021702 105237 003154 INCB ALLEOT 
4504 021706 LET R1 := #CMDSEQ :INIT CMD SEQ TBL POINTER. 
4505 021706 012701 003164 MOV #CMDSEQ,R1 
4506 021712 LET (R1)+ := #RDR :CMD1 = READ REVERSE. 
4507 021712 012721 104401 ‘ MOV WROR, (R1)+ 
4508 021716 - LET (R1)4+ = #DATCNT :SET LENGTH TO MAX FOR UNKNOWN LENGTHS. 
4509 021716 012721 004000 MOV #DATCNT, (R1)¢ 
4510 021722 LET (R1)4# := #77777 :RECORD COUNT = MAX FOR WHOLE TAPE. 
46511 021722 012721 077777 MOV #77777, (R1)4 
4512 021726 LET (R1)+ := MRANP :PATTERN = RANDOM. 
4513 021726 012721 000007 MOV WRANP, (R1)¢ 
4514 021732 LET (R1) := #END | :STORE END OF SEQUENCE CODE IN TABLE. 
4515 021732 012711 177777 MOV HEND, (R1) 
4516 021736 004737 006204 JSR PC, EXALL :G0 EXECUTE READ REV. OF ENTIRE TAPE. 
4517 021742 LET ALLEOT :B= #0 :CLEAR ALL UNITS @ EOT FLAG 
“78 021742 105037 003154 CLRB ALLEOT 
4 
4520 021746 EXIT TST 
4521 021746 104432 TRAP CSEXIT 
4522 021750 000002 WORD 110036-. 
4523 
4524 -EVEN 
6525 
4526 021752 ENDTST 
4527 021752 110036: , 
4528 021752 104401 TRAP CSETST 
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1283 -SBTTL TEST 5: EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4531 :44 
4932 : TEST TO EXECUTE OPERATOR SELECTED COMMAND SEQUENCE. 
4534 | 
4535 021754 BGNTST | 
t2e8 021754 Ses | 
| 
4538 021754 LET RANDOM :B= #0 ;CLEAR RAMDOM MODE FLAG. { 
4539 021754 105037 003145 CLRB RANDOM | 
4540 021760 LET EXPBOT :B= #1 ;SET EXPECT BOT FLAG. f 
4541 021760 112737 000001 003144 MOVB #1,EXPBOT { 
4542 021766 LET IRE :B= PIRE sMOVE INHIBIT RFC ERROR REPORT FLA 6. { 
4543 021766 113737 002214 003151 MOVB PIRE, IRE { 
4544 021774 004737 006140 JSR PC,SETC :CMD 1 = SET CHARACTERISTIC. { 
4545 022000 LET CHOSEQ*2 : = CHAR MOVE CHAR CODE FROM P TBL TO SEQ TBL. { 
4546 022000 013737 002216 003166 MOV CHAR, CMDSEQ+2 { 
4547 022006 LET R2 := #CMDD 3R2 POINTS TO CMD2 IN SOFT P TABLE. { 
4548 022006 012702 002220 MOV #CMDD ,.R2 { 
4549 022012 004737 022464 JSR PC,PTCMDS sMOVE CMD 2 FROM P TBL TO SEQ TBL. { 
4550 022016 004737 022464 JSR PC,PTCMDS sMOVE CMD 3 FROM P TBL TO SEQ TBL. { 
4551 022022 004737 022464 JSR PC,PTCMDS sMOVE CMD 4 FROM P TBL TO SEQ TBL. { 
4552 022026 004737 022464 JSR PC,PTCMDS :MOVE CMD 5 FROM P TBL TO SEQ TBL. { 
4553 022032 004737 022464 JSR PC,PTCMDS ; sMOVE CMD 6 FROM P TBL TO SEQ TBL. { 
4554 022036 004737 022464 JSR PC,PTCMDS — CMD 7 FROM P TBL TO SEQ TBL. { 
4555 022042 004737 022464 JSR PC,PTCMDS OVE END CMD FROM P TBL TO SEQ TBL. 
4556 022046 LET JLOOP := #0 SE LEAR JMP CMD LOOP COUNT. i] 
4557 022046 005037 003100 CLR JLOOP t 
4558 022052 LET STAFLG := #0 sCLEAR START FLAG H 
4559 022052 005037 003156 CLR STAFLG 
4560 022056 LET R1 := #CMDSEQ s INIT SEQUENCE TABLE POINTER. t 
4561 022056 012701 003164 MOV #CMDSEQ,R1 f 
4562 022062 3$: WHILE (R1) NE #END DO sWHILE THERE ARE CMDS LEFT IN SEQUENCE TBLE: t 
4563 022062 50366$: f 
4564 022062 021127 177777 a CMP (R1) ,#END { 
4565 022066 001574 ( BEQ 50367$ { 
4566 022070 022711 000040 CMP #JMP.C,(R1) 31S THIS A JUMP CMD? { 
4567 022074 001024 BNE 6% ‘BR IF NOT. ' { 
4568 022076 LET R1 := R1 + #2 ;POINT TO BRF. { 
4569 022076 062701 000002 ADD #2,R1 { 
4570 022102 012137 003102 MOV (R1)+,JLOC :SAVE BRF (LOCATION). { 
4571 022106 022137 003100 CMP (R1)+,JLOOP sHAS LOOP COUNT BE SATISFIED? { 
4572 022112 001003 BNE 1$ :1F NOT, JMP AGAIN { 
4573 022114 LET R1 := R1 + #2 ;1F SO, ADJUST SEQ “POUNTER { 
4574 022114 062701 000002 ADD #2,R1 { 
4575 022120 000760 BR 3$ ;AND GO TO NEXT COMMAND. { 
4576 022122 1$: LET JLOOP := JLOOP + #1 UPDATE THE LOOP COUNT. { 
4577 022122 005237 003100 INC JLOOP | 
4578 022126 LET R1 := #CMDSEQ : INIT CMD SEQ TABLE POINTER. | 
4579 022126 012701 003164 MOV #CMDSEQ,R1 | 
4580 022132 005337 003102 2$: DEC JLOC sDECR LOCATION COUNTER. 
4581 022136 001751 BEQ 3$ :1F THIS IS THE RIGHT LOCATION TO JMP Me GO SET | 
4582 022140 LET R1 := R1 + #10 :1F NOT, UPDATE SEQ POINTER 10 we? ~~ ‘ 
4583 022140 062701 000010 ADD #10,R1 


4584 022144 000772 BR 2% ;D0 17 AGAIN. 
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4585 022146 022711 000020 6$: CMP = #OLY.C,(R1) ;DELAY? ( 
4586 022152 001026 BNE 4$ ;BR IF NOT. ( 
4587 022154 LET R1 := R1 + #4 ;R1 = LOCATION OF N COUNT. ( 
4588 022154 062701 000004 ADD #4,R1 ( 
4589 022160 LET TIME2 := (RI) ;SAVE N COUNT. ( 
4590 022160 011137 003076 MOV (R1), TIME2 ( 
4591 022164 7$: DELAY 10. ;G0 TO SUPER-WAIT 1 MSEC. ( 
4592 022164 012727 000012 MOV #10.,(PC)+ ( 
4593 022170 000000 -WORD 0 ( 
4594 022172 013727 002116 MOV LSDOLY,(PC)+ ( 
4595 022176 000000 -WORD 0 ( 
4596 022200 005367 177772 DEC -6(PC) ( 
4597 022204 001375 BNE 74 ( 
4598 022206 005367 177756 DEC -22(PC) ( 
4599 022212 001367 BNE -720 ( 
4600 022214 005337 003076 DEC TIME2 ( 
4601 022220 001361 BNE 7% ( 
4602 022222 ; LET RI := RI + #4 POINT TO NEXT CMD. ( 
4603 022222 062701 000004 ADD #4,R1 ( 
4604 022226 000715 BR 3$ :GO CHECK NEXT CMD. ( 
4605 022230 004737 007114 4$: JSR = PC,SETUP ;GO SETUP THE COMMAND BLOCK. 
4606 022234 WHILE NCNT LT NCNT1 DO s;WHILE THERE ARE RECORDS REMAINING: ( 
4607 022234 503708: ( 
4608 022234 023737 003050 003052 CMP NCNT ,NCNTI 
4609 022242 002103 BGE 50371$ 
4610 022244 004737 007006 JSR PC,CMDAC ;STORE CMD ASCII] IN ERROR MSG. 
4611 022250 004737 006500 JSR PC,EXSUB ISSUE CMD TO ALL,AWAIT INTS, CHECK STATUS. ( 
4612 022254 IF CMDWRD EQ #GES THEN :1F CMD IS GET STATUS THEN ( 
4613 022254 023727 003056 100017 CMP CMDWRD , #GES 
4614 022262 001002 BNE 503728 ( 
4615 022264 004737 013770 JSR PC,PRXST ;PRINT EXTENDED STATUS REGISTERS. ( 
4616 022270 ENDIF ( 
4617 022270 503728: 
4618 022270 004737 014052 JSR PC,CKHAE CHECK HALT AFTER EACH CMD FLAG. 
4619 022274 LET R2 := #1 ;SET ALL UNITS AT BOT/EOT. ( 
4620 022274 012702 000001 MOV #1,R2 
4621 022300 004737 013462 JSR PC,FIRSTU sFIND FIRST UNIT. ( 
4622 022304 WHILE DEVTBL(RS) NE #END DO ;WHILE THERE ARE MORE UNITS: ( 
4623 022304 503738: 
4624 022304 026527 002532 177777 CMP DEVTBL(R5S> ,#END 
4625 022312 001426 BEQ 50374% ( 
4626 022314 If #MOD.CO SETIN CMDWRD THEN ;1F CMD IS REVERSE THEN: Y 
4627 022314 032737 000400 003056 BIT #MOD.CO.CMDWRD ( 
4628 022322 001406 BEQ 50375$ ( 
4629 022324 If #X0.BOT NOTSETIN EOTFLG(R5) THEN ;]F NOT AT BOT THEN: ( 
4630 022324 032765 000002 003134 BIT #X0.BOT .EOTFLG(R ( 
4631 022332 001001 BNE 50376$ ( 
4632 022334 LET R2 := #0 ;CLEAR EOT/BOT FLAG. ( 
4633 022334 005002 CLR R2 ( 
4634 022336 ENDIF ( 
4635 022336 503768: ( 
4636 022336 ELSE sELSE IF CMD IS NOT REVERSE: ( 
4637 022336 000411 BR 50377$% ( 
4638 022340 503758: ( 
4639 022340 IF #X0.EOT NOTSETIN EOTFLG(RS) OR #CMD.CO NOTSETIN CMDWRD THEN ( 
( 





4640 022340 032765 000001 003134 BIT XO. EOT,FOTFLGIR 


t 
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022346 001404 BEQ 50400$ 

032737 000001 003056 #CMD.CO,CMDWRD 

001001 50401$ 
022360 504008: 

:1F NOT AT EOT OR NOT A MOTION CMD THEN: 

022360 LET R2 := @ ;CLEAR EOT/BOT FLAG. 

005002 CLR R2 

ENDIF 
504018: 


503778: 


ENDIF 
004737 013530 JSR PC,NEXTU 3FIND NEXT UNIT 
ENDDO : 


000746 BR 50373$ 
50374$: 
IF R2 EQ #1 THEN ;1F ALL UNIT ARE AT ee THEN: 


020227 000001 


001016 BNE 

LET NCNT1 := NCNT ¢* #1 sFORCE TERMINATION OF COMMAND. 
013737 003050 003052 MOV NCNT,NCNT1 
005237 003052 INC NCNT1 

LET ALLEOT :B= ALLEOT + #1 ;FLAG ALL UNITS AT EOT/BOT TO ALLOW VERIFY OF D 
105237 003154 INCB ALLEOT 

IF CMDLG EQ #2 THEN sWHEN WRITING IS CURRENT COMMAND 
023727 003064 000002 CMP CMDLG,#2 
001002 BNE 50403$ 
004737 022506 4 PC, TSWEOT 3;G0 WRITE/READ REV ONE RECORD BEYOND EOT 

EN 

504038: 
ELSE 


000402 BR 50404$ 
504028: 
LET ALLEOT :B= #0 ;WHEN NOT ALL QEOT, CLEAR FLAG 

105037 003154 anal ALLEOT 


504048: 
LET NCNT := NCNT + #1 ;UPDATE RECORD COUNT. 
005237 003050 INC NCNT 
LET PCMDWD := CMDWRD sSAVE PREVIOUS COMMAND WORD. 
013737 003056 003062 sunee MOV CMDWRD ,PCMDWD 
N 
000671 BR 503708 


503718: 
022452 004737 012450 JSR PC, VFYDAT ;1F LAST CMD WAS A WRITE VERIFY, THEN GO 
02245 ;VERIFY THE LAST N RECORDS OF DATA, 
456 


022456 000601 BR 50366$ 
022460 50367$: 


022460 
104432 TRAP CSEXIT 
000130 «WORD 110037- 


— eee eee eee 
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4697 
4698 
4699 : SUBROUTINE TO’ MOVE A COMMAND FROM THE SOFTWARE P TABLE TO 
4700 ; THE COMMAND SEQUENCE TABLE. 
4701 ; INPUTS: R2 = POINTER TO SOFT ‘'P’’ TABLE 
4702 ; OUTPUTS: 
4703 ; REGISTERS: R3. 
<i ; CALLS: 
4706 022464 PTCMDS: LET R3 := (R2)+ = #1 SHIFT #1 ;=R3 = COMMAND TABLE INDEX. 
4707 022464 012203 MOV (R2)+,R3 | 
4708 022466 005303 DEC R3 | 
4709 022470 006303 ASL R3 { 
4710 022472 LET (R1)* := CMDTBL(R3) :MOVE COMMAND WORD. { 
4711 022472 016321 003266 MOV CMDTBL(R3),(R1)¢ { 
4712 022476 LET (R1)# := (R2)4 MOVE # OF BYTES. { 
4713 022476 012221 MOV (R2)+,(R1)+ { 
4714 022500 LET (R1)*# := (R2)+ MOVE # OF OPERATIONS. { 
4715 0622500 012221 MOV (R2)+,(R1)+ { 
4716 022502 LET (R1)# s= (R2)4 MOVE PATTERN CODE. { 
4017 022502 012221 MOV (R2)+,(R1)4 { 
nj Ae 022504 000207 RTS PC 
4 
4720 : SUBROUTINE TO WRITE THEN READ REVERSE ONE RECORD BEYOND EOT { 
4721 : INPUTS: { 
4722 ; OUTPUTS: 
4723 : REGISTERS: { 
‘Te : CALLS: CMDAC,EXSUB, CKHAE 
4 
4726 022506 000240 T5WEOT: NOP { 
4727 022510 000240 NOP | 
4728 022512 004737 006500 JSR PC,EXSUB sWRITE ONE RECORD BEYOND EOT t 
4729 022516 004737 014052 JSR PC, CKHAE $0 THAT READ SHORTER STOP DISTANCE f 
4730 SHALL POSITION HEAD IN CLEAN IRG GAP f 
4731 022522 . LET PCMDWD := CMDWRD REPOSITION TAPE f 
4732 022522 013737 003056 003062 . MOV CMDWRD ,PCMDWD f 
4733 022530 LET CMDWRD := #RDR :BEFORE EXTRA RECORD { 
4734 022530 012737 104401 003056 MOV #ROR, CMDWRD { 
4735 022536 LET CMDLG := #4 :BY READING REVERSE { 
4736 022536 012737 000004 003064 MOV #4,CMDOLG 
4737 022544 LET CMDPKT := CMDWRD CLR.BY #BRF.C 
4738 022544 013737 003056 002310 MOV CMDWRD,CMDPKT 
4739 022552 042737 004000 002310 BIC #BRE .C,.CMDPKT 
4740 022560 LET CMDSAV := CMDPKT : THAT RECORD TO ALLOW 
4741 022560 013737 002310 003060 MOV CMDPKT, CMDSAV 
4742 022566 LET CMDPKT+CP.ADL := DATARD NEXT COMMAND IN THE 
4743 022566 013737 003046 002312 MOV DATARD ,CMDPKT+CP 
4744 022574 004737 007006 JSR PC, CMDAC : TABLE TO BE EXECUTED 
4745 022600 004737 006500 JSR PC,EXSUB 
4746 022604 004737 014052 JSR PC, CKHAE 
4747 022610 000207 RTS PC 
4748 
4749 
4750 EVEN 
4751 


4752 022612 ENDTST 
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4753 022612 L10037: 
4754 022612 104401 TRAP CSETST 


4755 
4756 022614 ENDMOD 








PARAMETER CODING 
CZTSHB.P11 


022614 


022614 
022614 
022616 


022616 


022640 
022640 


022642 
022657 


022666 
022666 
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000024 


000031 


177564 


001032 
022657 
000777 
000060 
000776 


013004 


051524 
126 


051123 040440 
041505 047524 
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TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 
BGNMOD 


+ 
> 


THE HARDWARE PARAMETER CODING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE-SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 


BGNHRD 
LSHARD:: 
GPRMA TS4ADR,0,0,160002,177564,YES 


GPRMD 1S4VC1,2,0,777,60,776, YES 


EXIT HRD 


-NLIST BEX 
TSGADR: .ASCIZ /TSSR ADDRESS/ 
TS4VCT: .ASCIZ /VECTOR/ 
-LIST BEX 
; ENDHRD 


‘ 


110040: 


SEQ 0151 


«WORD L10040-LSHARD/2 


«WORD 
«WORD 
. WORD 
«WORD 


. WORD 
«WORD 
«WORD 
. WORD 
. WORD 


«WORD 


EVEN 


TSCODE 
TS4ADR 
TSLOLIM 
TSHILIM 


TSCODE 


TSLOLIM 
TSHILIM 


TSCODE 
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4797 -SBTTL SOFTWARE PARAMETER CODING SECTION 
4798 
4799 hated 
4800 ; THE SOFTWARE PARAMETER CODING SECTION CONTAINS MACROS 
4801 ; THAT ARE USED BY THE SUPERVISOR TO BUILD P=TABLES THE 
4802 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
4803 3; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
4804 : MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
4805 ; WITH THE OPERATOR. 
4806 i-- 
4807 
4808 022666 BGNSFT 
4809 022666 000461 «WORD L10041-L$SOF 1/2 
4810 022670 LSSOFT:: 
4811 
4812 
4813 022670 GPRML CLRM,0,1,YES 
4814 022670 000130 ~ WORD TSCODE 
4815 022672 023422 -WORD CLRM 
4816 022674 000001 «WORD 1 
4817 022676 GPRML RRVM,0,400,YES 
4818 022676 000130 -WORD TSCODE 
4819 022700 023441 ~ WORD RRVM 
4820 022702 000400 «WORD 400 
4821 022704 GPRML HAEM,2,1,YES 
4822 022704 001130 -WORD TSCODE 
4823 022706 023470 -WORD HAEM 
4824 022710 000001 «WORD 1 
4825 022712 GPRML RCVERM,2,400, YES 
4826 022712 001130 «WORD TSCODE 
4827 022714 023514 «WORD RCVERM 
4828 022716 000400 -WORD 400 
4829 022720 GPRML DINTM,6,1,YES 
4830 022720 003130 * WORD  TSCODE 
4831 022722 023545 WORD DINTM 
4832 022724 000001 «WORD 1 
4833 022726 GPRML IRECM,6,400, YES 
4834 022726 003130 «WORD TSCODE 
4835 022730 023570 -WORD IRECM 
4836 022732 000400 -wORD 400 
4837 022734 GPRMAL CHGM,10,1,YES 
4838 022734 004130 «WORD TSCODE 
4839 022736 023611 «WORD CHGM 
4840 022740 000001 -wORD 1 
4841 022742 XFERF ENDSP1 . 
4842 022742 132044 «WORD TSCODE 
4843 022744 GPRML JREM,12,1. YES 
4844 022744 005130 «WORD TSCODE 
4845 022746 023635 WORD IREM 
4846 022750 000001 «WORD 1 
4847 022752 GPRMD CHARM, 14,0,377,0,200, YES 
4848 022752 006032 «WORD TSCODE 
4849 022754 023666 : -WORD CHARM 
4850 022756 000377 «WORD 377 
4851 022760 000000 .WORD TSLOLIM 


4852 022762 000200 -WORD TSHILIM 
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007052 


077777 
012052 
023753 
000010 
013052 


014052 
023721 
177777 
000001 
004000 


015052 


077777 
016052 


000033 
020052 
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GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 
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CMD2M,16,0,37,1,33., VES 
BPCRM,20,0,-1,1,DATCNT,YES 
meran,22.0.~1.1,77777.188 
PATTM,24,0,17,0,10, YES 
CMD3M,26,0,37.,1,53, YES 
BPCRM,30,D,-1,1,DATCNT,YES 
NUMBM,32,D,-1,.1,77777, VES 
PATTM,34,D,17,0,10, YES 
CMD4M,36,0,37,1.53. VES 


BPCRM,40,D,-1,1,DATCNT, YES 


TSCODE 
CMD2M 
37 
TSLOLIM 
TSHILIM 


TSCODE 
a 
TSLOLIM 
TSHILIM 


TSCODE 
~ 
TSLOLIM 
TSHILIM 


TSCODE 


TSLOLIM 
TSHILIM 


TSCODE 
CMD3M 
37 


TSLOLIM 
TSHILIM 


TSCODE 
= 
TSLOLIM 
TSHILIM 


TSCODE 
— 
TSLOLIM 
TSHILIM 


TSCODE 
PATIM 
17 
TSLOLIM 
TSHILIM 


TSCODE 
ae 


TSLOLIM 
TSHILIM 


TSCODE 


SEQ 0153 
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CZTSHB.P11 24-AUG-79 09:08 SOFTWARE PARAMETER CODING SECTION SEQ 0154 
4909 023120 023721 ~WORD BPCRM 
4910 023122 177777 -WORD - 
4911 023124 000001 «WORD TSLOLIM 
4912 023126 004000 -WORD TSHILIM 
4913 023130 GPRMD NUMBM,42,0.-1,1,77777, YES 
4914 023130 021052 «WORD TSCODE 
4915 023132 023733 -WORD NUMBM 
4916 023134 177777 «WORD -1 
4917 023136 000001 -WORD TSLOLIM 
4918 023140 077777 -WORD TSHILIM 
4919 023142 GPRMD PATIM,44,0,17,0,10.YES 
4920 023142 022052 «WORD TSCODE 
4921 023144 023753 «WORD PATIM 
4922 023146 000017 «WORD 17 
4923 023150 000000 -WORD TSLOLIM 
4924 023152 000010 -WORD TSHILIM 
4925 023154 GPRMD CMD5M,46,0,37,1,33,YES 
4926 023154 023052 «WORD TSCODE 
4927 023156 024002 «WORD CMD5SM 
4928 023160 000037 «WORD 37 
4929 023162 000001 «WORD TSLOLIM 
4930 023164 000033 «WORD TSHILIM 
4931 023166 GPRMD BPCRM,50,D,-1,1,DATCNT,YES 
4932 023166 024052 «WORD TSCODE 
4933 023170 023721 -WORD BPCRM 
4934 023172 177777 «WORD 1 
4935 023174 000001 «WORD TSLOLIM 
4936 023176 004000 «WORD TSHILIM 
4937. 023200 GPRMD NUMBM,52,D,-1,1,77777.,YES 
4938 023200 025052 «WORD TSCODE 
4939 023202 023733 -WORD NUMBM 
4940 023204 177777 «WORD -1 
4941 023206 000001 «WORD TSLOLIM 
4942 023210 077777 «WORD TSHILIM 
4943 023212 GPRMD PATIM,54,D,17,0,10,. YE# 
4944 023212 026052 = «WORD TSCODE 
4945 023214 023753 «WORD PATIM 
4946 023216 000017 «WORD 17 
4947 023220 000000 . «WORD TSLOLIM 
4948 023222 000010 . «WORD TSHILIM 
4949 023224 XFER ENDSP2 
4950 023224 002004 » WORD TSCODE 
4951 023226 ENDSP1: XFER ENDSP 
4952 023226 075004 «WORD TSCODE 
4953 023250 ENDSP2: GPRMD CMD6M,56,0,37.1,33.,YES 
4954 023230 027052 . WORD TSCODE 
4955 023252 024010 -WORD CMD6M 
4956 023234 000037 «WORD 37 
4957 023236 000001 «WORD TSLOLIM 
4958 023240 000033 «WORD TSHILIM 
4959 023242 GPRMD BPCRM,60,D,-1,1.DATCNT,YES 
4960 023242 030052 «WORD TSCODE 
4961 023244 023721 -WORD BPCRM 
4962 023246 177777 «WORD =1 
4963 023250 000001 «WORD TSLOLIM 


4964 023252 004000 -WORD TSHILIM 
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000010 
033052 


000033 
034052 


004000 
035052 


077777 


036052 . 


000010 
037052 


000033 
040052 
023721 
177777 
000001 
004000 


041052 


077777 
042052 
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GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 


GPRMD 
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NUMBM,62,0,-1,1,77777,YES 


PATTM,64,0,17,0,10, VES 


CMD7M,66,0,57,1,55,YES 


BPCRM,70,D0,-1,1,DATCNT,YES 


NUMBM,72,0,-1,1,77777,YES 


PATIM,74,0,17,0,10, VES 


CMD8M,76,0,37,1,2535, YES 


BPCRM,100,D.-1,1,DATCNT, VES 


NUMBM,102,D.-1,1,77777, YES 


PATIM,104,0,17,0,10. VES 


SEQ 0155 


TSCODE 
_— 

” ; 
TSLOLIM 
TSHILIM 


TSCODE 
PATIM 


TSLOLIM 
TSHILIM 


TSCODE 
CMD7M 
37 
TSLOLIM 
TSHILIM 


TSCODE 
— 
TSLOLIM 
TSHILIM 


TSCODE 

~ ong ‘ 
TSLOLIM 

TSHILIM 


TSCODE 
PATIM 
17 
TSLOLIM 
TSHILIM 


TSCODE 


TSLOLIM 
TSHILIM 


TSCODE 
TSLOLIM 
TSHILIM 


TSCODE 
NUMBM 


=| 
TSLOLIM 
TSHILIM 


TSCODE 
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162004 


MACY11 30(1046) 
24-AUG-79 09:08 


ENDSP: 






XFER 
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JMPMSG 


— ——— — ee 


SEQ 0156 
PATIM 
17 
TSLOLIM 
TSHILIM 


TSCODE 























PARAMETER COD] 
CZTSHB.P11 


5028 . 
5029 


023753 


5032 023764 
5033 023764 
5034 023764 


023766 


024016 
024024 


5039 024032 
5041 024032 
5047 024032 


5051 024232 
5053 024232 


024256 


NG 
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023004 


046503 


046503 
046503 


000100 


024254 
000007 
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027504 


027504 


020122 


042524 


000063 


000070 
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-NLIST BEX 
CLARA: ASCIZ /CLEAR COUNTERS/ 
RRVA: ASCIZ /RESET RANDOM VARIABLES/ 
HAEM: ASCIZ /WALT AFTER EACH CMD/ 
RCVERM: .ASCIZ /PRINT RECOVERABLE ERRORS/ 
DINTM: SCI1Z /DISABLE INTERRUPTS/ 
IRECM: ASCIZ /INHIBIT RECOVERY/ 
CHG: ASCIZ /CHANGE CMD SEQUENCE/ 
IREM: ASCIZ /INHIBIT RFC ERROR REPORT/ 
CHARM: ASCIZ /CHARACTERISTICS CODE/ 
CMD2M: ASCIZ “‘CMD/2"' 
BPCRA: ASCIZ /BRF COUNT/ 
NUMBA : ASCI1Z /# OF OPERATIONS/ 
PATTM: .ASCIZ /PATTERN/ 

LIST BEX 

EVEN 
JMPMSG: 

EXIT SFT 

- WORD TSCODE 

-NLIST BEX 
CMD3M: .ASCIZ ‘‘CMD/3"' 
CMD4M: .ASCIZ ‘'CMD/4"' 
CMDSM: .ASCIZ ‘'CMD/S"’ 
CMD6M: .ASCIZ ‘'CMD/6" 
CMD7M: .ASCIZ ‘‘CMD/7"' 
CMD8M: .ASCIZ ‘'CMD/8"" 

LIST BEX 

EVEN 

ENDSFT 
L10041: 


ptaneeeeereeereereeteeteeeteetereeeee rete eRe KAKA K AKA KKK ATA Te 
peeereerereerreeeereereeeeterterteeeree eRe eee AKA e eA e eK eK ARATE ATS 


PATCH AREA 
PATCH:: .BLKW 64. 


peeeererererereerereeerererettererereeeeeeeeA Kee eeeKe eer TA eee Te 
peecarerererreteeeeterteereterereeteeeeeeee eee e eee ERATE 


LASTAD 


-EVEN 
«WORD TSFREE 
-WORD TSSIZE 


LSLAST:: 
ENDMOD 


aE ESN eon (oon ee 


SEQ 0157 


oy 
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000000 


000002 


172522 
000224 


000001 
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HARD CODED P-TBL 


-SBTTL HARD CODED P-TBL 


Eee e 
;DIAG 1S PRE-PARAMETERIZED PER TBL 


L10042: 


L10044 


«END 


BGNSETUP 1 
BGNPTAB 


172522 
224 
ENDPTAB 


" ENDSETUP 


« WORD 
«WORD 
. WORD 
«WORD 


0 
0 
0 
0 
L 


SEQ 0158 


10044-./2-1 





a ea gee pe gat ee er ge ees | 


yes Gt ge oe oe OK Se ee 
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ACK.C = 100000 6 32441217 20 423 426 429 432 85 3B 1G? 
450 453 = 456 459 66265 OB 71 7G 77 BO B83 BS 
ADR _= 000020 G 2838 3355 
ALLEOT 003154 G (S588 1197 122512621290 25794269" 42B5# 4450" 4457# 4505" 45184 4665s 
® 
ASSEMB= 000010 Ds 
ATINA 004041 G 793# 2042 
AUDRPM 004351 G 7938 © 3328 
AUTODM 017040 3544 36068 
BFSEQ 020222 3776 «= 3817S 3831S 3843 = 3855S 3867 «= 3879 «= 3891 «= 3903 «= 3915 = 3927 = 4002" 
BFSEQO 020246 3775 40218 
BFSEQ1 020320 3816 © 40430 
BFSEQ2 020332 3830 — 4049¢ 
BFSEQS 020424 3842 40798 
BFSEQ4 020476 3854 41018 
BFSEQS 020540 3866 41198 
BFSEQ6 020612 3878 41418 
BFSEQ7? 020644 3890 4155 
BFSEQB 020676 3902 4169" 
BFSEQ9 020730 3914 41834 
BFSE10 020752 3926 ©4193" 
BGNFLG= 003114 636" = 1767 
BINC 012434 2398 24994 
BITO = 000001 G 256" 1849 3136 
B1T00 = 000001 G 2458 256 990 2728 
BIT01 = 000002 G 244H 255 
B1T02 = 000004 G 243 © 254 
B1T03 = 000010 G 242" © 253 
1704 = 000020 G 241# 252 
BITOS = 000040 G 240# 251 
1706 = 000100 G 2398 250 
B1T07 = 000200 G 2384 = 249 
B1T08 = 000400 G 2378 2h 
B1T09 = 001000 G 236# © 247 
BIT! = 000002 G 255# 3136 
BIT10 = 002000 G 2350 
BIT11 = 004000 G 234m : 
BIT12 = 010000 G 2330 
BIT13 = 020000 G 232e 
BIT14 = 040000 G 2314 
BITI5 = 100000 G 2308 
BIT2 = 000004 G 254M 
BITS = 000010 G 2534 
BITS = 000020 G 2524 
BITS = 000040 G 2518 
BIT6 = 000100 G 250# 
BIT? = 000200 G 2498 
BITB = 000400 G 2484 
B1T9 = 001000 G 2478 
0€ = 0004600G =. 2878 
BPCRM 023721 4861 4885 4909 4933 4961 4985 5009 5029" 
BRCPK 002326 G 519" 3651 
BRFCNT 003054 G 617# 1094" 1096* 1098 1101* 1105 1368 1466 2601 2403 2667 2687 
BRF.C = 004000 G ep ame 40h aC aa A a a a 
468 «1451 «1864 = «1960 = 2546 4739 
CHAR 002216 G 1818 4546 
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CHARM 023666 


o 
= 
. 

m 
> 
el 
“ 
oO 
So 
So 
Oo 
= 
oO 

DHOAaQAG a 


o 
z 
_—J 
> 
co 
So 
So 
~“ 
So 
So 
o 
Aaa BAGAGAGA AAG a 


CMDPKM 003606 
CMDPKT 002310 


CMDSAV 003060 
CMDSEQ 003164 


CMDSE2 003174 
CMDTBL 003266 
CMDWRD 003056 


OaQQ qa 


cmp.CO= 000001 
CmD.C1= 000002 
CMD.C2= 000004 
CMD.C3= 000010 


CMD.C4= 000020 


a aan a 


CP.CMD= 000000 G 


24-AUG-79 09:08 


— Mm—rrr 


5 


E 
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5029¢ 
3 


2722 2728 2775 2778+ 
2750* 2756 2780 2784 
29754 = =42735 4454 4618 
4183 
3483 
3159 


1380" 1391" 1396* 1426* 


900 907 908 909 
1405* 1412" 1413" 1423+ 
2143" 2163* 2545" 25468 
3979" 3982" 4738" 4759* 


1069 4003 4264 4277* 


4711 

1084 1122 1137 1160 
1856 1864 1867 1960 
3957" 3971" 4613 4627 
420 423 426 429 
1137 1216 1281 1384 
456 471 477 480 
429 450 471 483 
432 435 453 456 
2399 

3439 


1404* 1413* 1425* 25568 


2783 
27998 
4729 


4743 


27988 
4746 





25268 


3960* 


45468 


144] 
2570 


459 





SEQ 0160 


-2533* 


1386+ 
1661* 
3965* 


4561 


1443* 
2598 


462 
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CP.CNT= 000006 G 390# «= 1105* = 1367* «1405* 1412" 2695 3960" 3965" 3968* 3974+ 3979*  3982¢ 
CICC = 003106 G 630# 896 1817" 1818+ 1849 1918 1950 1 
CvC.C = 040000 G 3258 412 483 1 
CSAU_= 000052 #3747 1 
C$AUTO= 000061 4# 3604 1 
CSBRK = 000022 4# 1700 «1790 «3343-3431 1 
CSBSEG= 000004 Ga 1 
C$BSUB= 000002 GW 3772-3813 3827-3839) 3851 = «3863 «= 3875 3887) 3899 3911 3923 3954 1 
CSCEFG= 000045 Gn 1 
CSCLCK= 000062 Ga 1 
CSCLEA= 000012 4# 3667 1 
C$CLOS= 000035 Ga 1 
CSCLP1= 000006 Ga 1 
CSCVEC= 000036 GW 3536 ©3654 3686 1 
CSDCLN= 000044 GW 28233345 3473 1 
C$DODU= 000051 4# 2922-3555 1 
CSDRPT= 000024 4# 12464 2908 1 
U = 000053 4# 3702 t 
CSEDIT= 000002 ae 63 t 
CSERDF= 000055 G# 1596 = 1651S 1678 = 1741 = 20402117, 2252S 2307 = 2327 2348 = 2889 t 
CSERHR= 000056 4W# 1978 2021 2092 «= 2366S 2673 = 2690 2745 t 
CSERRO= 000060 Ge \ 
CSERSF= 000054 GW = 3139 \ 
CSERSO= 000057 GW 2154 = 21952265 \ 
CSESCA= 000010 Ga \ 
CSESEG= 000005 4a \ 
CSESUB= 000003 4# 3809 «= 38233835 = 3847S 3859 = «3871 «= 3883) 3895 = 3907 3919 3936 = 3987 \ 
CSETST= 000001 4H 4206 = 4406 44714528 4754 ‘ 
CSEXIT= 000032 4# 3488 «= 3661S 399% 4296 4404 45214691 t 
C$GETB= 000026 Ga , 
C$GETW= 000027 Ga \ 
CSGMAN= 000043 4#& 2992 \ 
CSGPHR= 000042 4w 32813721 \ 
C$GPLO= 000030 4a ‘ 
C$GPRI= 000040 4a \ 
CSINIT= 000011 4# 3506 ‘ 
C$INLP= 00002 Ga ‘ 
CSMANI= 000050 4# 2979 , 
CSMEM = 000031 4H 3458 4 
C$MSG = 000023 4# = 850935 } 
CSOPEN= 000034 ry } 
CSPNTB= 000014 49 = «813. B19 B41 B61 B67) BBS 2483 = 2681 = 2699 2788 } 
CSPNTF= 000017 4# 3331 «33973409 = 5470) 3547 = 3575 = 3590 = 3692S :3799 ; 
CSPNTS= 000016 4# 3034 «= 3044 += 3054 «= 3064 «= 3073 «= 3082 = 3092 } 
C$PNTX= 000015 ow 6 893 904i 9232767 = 2952 2982 } 
($010 = 000377 4a 
C$RDBU= 0 Ga } 
CSREFG= 000047 4# «3187 = 3219S 32373245 ) 
C$RESE= 00003 4a ; 
C$REVI= 000003 4# 62 ) 
C$RFLA= 000021 4H 3228 } 
C$RPT = 000025 4# = 3110 
C$SEFG= 000046 4a 
C$SPRI= 000041 Ga 3351 i 
C$SVEC= 000037 4#@ 3296 «= 3530-3734 
CSTPRI= 000013 Ge { 
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CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0162 
DATARD 003046 G 6148 988 1024 1386 2556 2628 2632 2712 3461* 3462* 4743 | 
DATAWT 003044 G 399 6134 1423 1473 1668* 1737" 1738" 1900* 221i* 2710 3459* 3461 3464 


DATCNT= 004000 G 187 191 195 203 207 401" 687 691 695 3462 3464 4050 4054 
4058 4062 4066 4070 4074 4084 4146 4150 4156 4160 4164 4170 4174 
4178 4220 4237 4332 4345 4389 4422 4494 4509 4860 4884 4908 4932 


DEVTBL 002532 G 5848 809 857 1119 1185 1250 1615 2567 2812 2820 2827 2847 2850 
2917 2924 3025 3030 3197* 3211* 3212" 3273 3360 3393 3405 3521 3550 
3571 3586 3647 3683* 3719 3781 3795 4624 

DFPTBL 002174 G 1498 

DFTSCH= 000040 G 3544 1039 

DIA = 100006 G 4854 735 | 

DIABLK= 003044 G 3994 =1413 

DIACNT= 000020 G 400# 1412 

DIAGMC= 000000 4 

DINT 002210 G 1758 = §=1643 1716 

DINTM 023545 4831 5029" 

Diy = 000020 G 489" 737 

DLY.C = 000020 G 3438 489 4585 

DRI = 100013 G 4178 710 4025 

DROPDM 004322 G 7934 = 3689 

DROPED 003152 G 6564 247% 2641 2647 2807* 2841" 2903" 2938+ 

DROPN 013766 2917* 29418 3550* 3688 

DROPU 013560 G 1600 1655 1682 1745 2044 2121 2256 2311 2331 2352 28618 


DROPUA 013704 29094 3577 3592 

DRORTN 013760 29378 

DTAERM 004720 G 8054 2676 2693 2748 
DTAER2 004403 G 793# 862764 

DTAERS 004452 G 793# 8 2785 

DTAERS 004514 G 793# 2678 

DTAERS 004535 G 793# 2696 

EF .CON= 0 G 2634 

EF .NEW= 000035 G 2644 3236 

EF .PWR= 000034 G 2654 3218 

EF .RES= 000037 G 2624 3244 

EF .STA= 000040 G 261" 31 

EINC 012442 2456 25034 

END = 177777G 491a 588 618 619 620 703 704 705 706 707 738 1072 1119 


1185 1250 1615 2567 2820 3025 3273 3360 3521 3647 3781 4006 4014 
4041 4047 4077 4099 4117 4139 4153 4167 4181 419) 4201 4261 4282 
4292 4442 4460 4500 4515 4564 4624 


ENDERF= 003124 6448 1757 

ENDFLG= 003156 6604 3482 

ENDSP 023420 4952 5025« 

ENDSP1 023226 4842 49518 

ENDSP2 025230 4950 49534 

EOTFLG 003134 G hy lee 1135 1191 1194 1214 1256 1259 1279 1835" 2573 2576 2596 
46 464 

ERCVER 002205 G 172#@ = = 2151 2476 

ERLOG 003117 G 6394 2385 2388+ ; 

ERRREC 003122 G 6424 1663 1921 2078 2168* 2207" 2277s 

ERS = 100411 G 4748 731 4087 

Ev. = 000004 G 2818 

EXALL 006204 G 10684 3777 3818 3832 3844 3856 3868 $880 3892 3904 3916 «= 5928 3931 
4262 4283 4293 4445 4461 4501 4516 
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EXARTN 006476 1154 117148 : 

EXCRTN 010276 1601 1656 16854 : é 

EXCUTE 007770 G 1199 1205 1220 1227 1585#@ 2172 2215 2284 2639 

EXPBOT 003144 G 650" 2057 3768* 4218% 4420" 4486% 4541+ 

EXSUB 006500 G 1112 11828 4272 4453 4611 4728 4745 

ESEND = 002100 4a 

ESLOAD= 0000 4a 

FATSM 004077 G 793# 2309 

FIRSTU 013462 G 1116 1182 1247 1612 2564 2806# 3022 3268 3357 3518 3644 3778 ~=—s 4621 

FMT.CO= 000040 G 338" 8 8©6= 412 

FMT.Cl= 000100 G 335a 412 

FILCNT 003024 G 605# 2862" 3086 3541* 3569* 3584+ 

FUNRM 004057 G 793#@ = §=©2119 

FSAU = 000015 4a = 3712 3746 

FSAUTO= 000020 4a =. 3516 3603 

FSBGN = 000040 ry" 8 215 805 846 853 928 946 954 962 970 3005 
3010 3017 3103 3120 3133 3488 3516 3641 3661 3677 3698 3712 3742 


FSCLEA= 000007 4a 3641 3666 

F$DU = 000016 4a 3677 3701 

FSEND = 000041 4a 8 215 220 844 851 926 936 952 960 968 976 3005 
3010 3101 3111 3488 3507 3605 3661 3668 3696 3703 3740 3748 3750 
3761 3763 3771 3808 3810 3812 3822 3824 3826 3834 3836 3838 3846 
3848 3850 3858 3860 3862 3870 3872 3874 3882 3884 3886 3894 3896 
3898 3906 3908 3910 3918 3920 3922 3935 3937 3953 3986 3988 3994 
4205 4207 4213 4296 4405 4407 4415 4464 4470 4472 4481 4521 4527 
4529 4536 4691 4753 4755 4757 4762 4789 4797 5034 5042 5057 5064 
5065 5074 5076 

FSHARD= 000004 4@ 4773 4789 4795 4842 4950 4952 5027 5034 

FSHW = 0000135 Ge 147 156 

FSINIT= 000006 4# = 63133 3505 

FSUMP = 000050 ee" ghte 926 3101 3488 3661 3696 3740 3994 4296 4464 4521 4691 
4 4 

FSMOD = 000000 Ge 215 220 3005 3010 3750 3761 4757 4762 5057 

FSMSG = 000011 Ga 0 849 853 934 

FSPROT= 000021 Ga 3120 3125 

FSPWR = 000017 4a 

baw = pone dt . 3017 3109 

= 4 

FSSOFT= 000005 4#@ 4809 4842 4950 4952 5027 5034 5040 

FSSRV = 000010 att 946 950 954 958 962 966 970 974 

F$SUB = 000002 44 3772 3808 3813 3822 3827 3834 3839 3846 3851 3858 3863 3870 
3875 3882 3887 3894 3899 3906 3911 3918 3923 3935 3954 3986 

F$SW = 000014 Ga 165 212 

FSTEST= 000001 aa 3764 4205 4214 4405 4416 4470 4482 4527 4537 4753 

GCMDA 7060 G 1314 1320 i338" 2984 

GENPAT 007472 G 1424 14624 

GES = 100017 G 4718 730 4033 4613 

GETSTM 004663 G 7934 2949 

GIT 07764 1568 15738 d 

GOWAIT 010300 G 1264 1270 1285 1292 1695#@ 2173 2216 2285 2643 

GOWRTN 010472 1746 17564@ 
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GSCNTO= 000200 4a 

GS$DISP= 000003 ae 

GSEXCP= 000400 Qa 

GSHILI= 000002 4a 

G$LOLI= 000001 ue 

G$n0 = 000000 ae 

GSOFFS= 000400 4H = =2995 4777 4782 4814 4818 4822 4826 4830 4834 4838 4844 4848 


GSOFS1= 000376 4#@ = =2995 4777 4782 4814 4818 4822 4826 4830 4834 4838 4844 4848 


5014 5020 
GSPRMA= 000001 44 4777 
GSPRMD= 000002 4# = =4782 4848 4854 4860 4866 4872 4878 4884 4890 4896 4902 4908 


GSPRML= 000000 GH 6.2995. 4814. 4818 = 48224826 B30 B34 B38 BAG ; 


GSRADA= 000140 oe 
G$RADB= 000000 4a 
GSRADD= 000040 48 = =4854 4860 4866 4872 4878 4884 4890 4896 4902 4908 4914 4920 


GSRADL= 000120 4#@ = §2995 4814 4818 4822 4826 4830 4834 4838 4844 

GS$RADO= 000020 48 84777 4782 4848 

GSXFER= 000004 4H = 4789 4842 4950 4952 5027 5034 

G$YES = 000010 4#@ = 2995 4777 4782 4814 4818 4822 4826 4830 4834 4838 4844 4848 


5014 5020 
HAE 002204 G 171# 2976 
HAEM 023470 4823 5029" 
HALTM 003546 G 793#@ = 2986* 2988* 2990" 2996 
HELP = 000000 4 | & 16 104 120 151 169 296 789 806 3019 3104 3135 
, ' 9 gir 3643 3663 3679 3698 3714 3742 4776 479) 4812 5029 
= G 4 
HRDCNT 003014 G 6044 1976" 2019" 2090* 2743" 5087 
1BE = 010000 G 2914 
1DuU = = 000040 G 2844 
IER = 020000 G 2928 
1E.C = 000200 G 3340 412 1661 
INIT10 015260 3135#@ 3152 
INIT15 015474 3189 32174 
INIT16 015514 3221 32278 
INTFLG 003124 G 6484 948* 956* 964* 972* 1646 1660* 1719 3737* ~~ 
INTPRI= 000 G 56 3948 3292 3730 
IRE 003151 G 6558 1973 2075 227% 4543« 
IREC 002211 G 176# =§=2165 2204 2471 2927 3353 
JRECM 023570 4835 5029e 
IREM 023635 4845 5029# 
1SR = 000100 G 2854 
I1X€ = 004000 G 2908 
1$AU_ = 000041 # 3712 37488 
1$AUTO= 000041 4#@ 3516# 36054 


000041 4#@ 36414 53661 36688 


+@ @ 44 1.4 


PARAMETER CODING 


CZTSHB.P11 

sdU = 000041 
1SHRD = 000041 
ISINIT= 000041 
1$MOD = 000041 
1$8MSG = 000041 
ISPROT= 000040 
ISPTAB= 000041 
1SPwR = 000041 
1SRPT = 000041 
1SSEG = 000041 
ISSETU= 0 
1SSFT = 000041 
1$SRV = 000041 
1$SUB = 041 
1$TST = 000041 
JLOC 003102 
JLOOP 003100 
JmP Oe 40 
JAPMSG 023764 
JMP.C = 000040 
JSJMP = 000167 
LENMSK 003 
LOE = 0400 
LOG 012150 
Lot = 00001 
LSACP 002110 
LSAPT 002036 
LSAU 017314 
L$AUT 002070 
LSAUTO 016550 
LSccP 21 
LSCLEA 017172 
L$co 002032 
LSDEPO 002011 
LSDESC 002136 
LSDESP 002076 
LSDEVP 206 
LSDISP 002124 
L$OLyY 002116 
LSOTP 002040 
LSDTYP 002034 
L$DU 017242 
L$o0uT 002072 
LSDVTY 002164 
LSEF 002052 
LSETP 002102 
LSEXP1 0020446 
LSEXP2 002046 
LSEXP4 002064 


So 
DOQDAQA AAD AAAAAAAIAAIQAqGMHAAAAAAAAG GA Aad 


MACY11 30(1046) 
24-AUG-79 09:08 


verre 
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37034 


3146 


3336 


3005# 30108 
9368 

3826 3838 

4536 

9608 9620 
38108 38128 
38628 38708 
3918# 39208 
826 3838 

4213# 4296 

4691 47538 
3696 3749 

4425* 44268 
3376 3424 


37508 


4594 


37618 


47578 


3874 


9768 
38264 
38820 
39378 


3874 
44158 


47628 


3886 


3834a 
38844 
39538 


3886 
4464 


5057# 


3898 


3836" 
38864 
3986" 


3898 
44708 


3910 


38588 
38948 
39884 


3910 
44728 


SEQ 0165 


3922 


38468 
38968 
4213 


3922 
44818 
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LSHARD 022616 G 36 4773 47768 
LSHIME 002120 G 1014 

LSHPCP 002016 G ° 35a 

LSHPTP 002022 G 39" 

LSHW 002174 G 40 147 1484 
LSICP 002104 G 898 

LSINIT 015260 G 90 31334 

LSLADP 002026 G 43a 

LSLAST 024236 G 44 5055#@ 5076 
LS$LOAD 002100 G 85a 

LSLUN 002074 G 814 2827" 2850« 
LSMREV 002 G 61" 

LSNAME 002 G 184 

LSPRIO 002 G 55a 

LSPROT 015252 G 96 31208 

LSPRT 002112 G 95a 

LSREPP 002062 G 71a 

LSREV 002010 G 27a 

LSRPT 014126 G 72 30174 

LSSOFT 022670 G 38’ 4809 48104 
L$SPC 002056 G 678 

LSSPCP 002020 G 378 

LSSPTP 002024 G 4la 

L$STA 002030 G 45a 

L$sw 002202 G 42 165 1664 
LSTEST 002114 G 97" . 
LSTIML 002014 G 33a 

LSUNIT 002012 G Sia =. 33204 

L 002200 147 156a 

110001 002310 165 2124 

110002 005 845 8494 

L10003 006010 927 934" 

110004 006016 9504 

110005 006024 9584 

L10006 006032 966" 

L10007 006040 9748 

110010 015250 3102 3109" 

L10012 016546 3489 3505¢ 

L10013 017036 36034 

L10014 017240 3662 3666" i 
110015 017312 3697 37014 

110016 017406 3741 37464 

110017 020774 3995 4205# 

110020 017542 38084 

110021 017566 38220 

110022 017606 38348 

110023 017626 38468 

110024 017646 3858e 

110025 017666 38708 

L10026 017706 38820 

110027 017726 3894" 

110030 017746 39064 

110031 017766 39188 

110032 0200 3935a 

110033 020210 3986" 

110034 021452 4297 4405# 
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110035 021620 4465 44708 
110036 021752 4522 45278 
L10037 022612 4692 47538 
110040 666 4773 4789 47968 
L10041 024032 09 5034 50414 
L10042 024250 50704 
110044 024254 69 5074" 
= 100012 G 4568 51 725 
016444 3467 34904 
MOD .CO= 400 G 3338 412 423 435 438 44) 468 Gis 477 984 1122 1188 
1388 1867 1870 1880 2570 4627 
MOD.C1= 001000 G 3328 412 438 44) bak 447 450 462 465 468 480 2163 
MOD.C2= 002000 G 3318 412 453 
MOD.C3= 004000 G 3284 412 
MOVMSG 010554 G 1594 1676 1739 1752 18118 2884 3443 
MSGCNT= 6G 3984 550 1634 1825 2872 
MSGPKA 002502 G 5614 1625 1629 1820 2867 3784 
MSGPKT 002334 G 532a 898 916 917 918 919 987 1828* 1835 1851 1935 1963 
2064 2239 2403 2406 2668 2864 2955 2956 2957 2958 
MSGPKO 002352 G 5414 548 561 
MSGPK1 002370 G 5428 562 
MSGPK2 002406 G 5434 63 
MSGPK3 002424 G 5448 6 
MS.RFC= 000004 G 3598 987 1963 2403 2406 2668 
MS.XSO= G 3604 919 1835 2055 2064 2958 
MS.XS1= 000010 G 3614 918 2957 
MS.xXS2= 000012 G 3624 917 1851 1935 2956 
MS.XS3= 000014 G 3634 916 2239 2864 2955 
NCMD.C= 177740 G 4124 1370 
NCNT 003050 G 6154 1077 1158* 1418* 2558* 2561 2613* 4608 4660 4678+ 
NCNT1 003052 G 6164 1077 1416* 2561 4608 4660*  4661* 
NEXTU 013530 G 1147 1234 1299 1618 2607 28408 3094 3319 3448 3597 3655 3803 
NINUSE= 177774 G 4114 584 585 586 587 2812 2847 2924 3197 3683 
NOINTM 004125 G 793#@ 81743 
NRDYM 017134 3406 3587 36178 
NSSRM 003775 G 793# 861598 
023733 4867 4891 4915 4939 4967 4991 5015 5029" 
NURTY1 004577 G 793# 2480 
OFLINM 004633 G 793# 3394 3572 
ONEFIL= 000001 2a 5 2154 218 3005# 3008 3751 3752a 864757 4758# 4760 
OPFLAG 003162 G 672#@ 3229" 3355 
opP.c = 020000 G 3268 412 441 447 2143 
OSAPTS= 000000 as 45 
O$Au = 000001 Li 15a 77 
OSBGNR= 000001 sa 15a 71 
OSBGNS= 000001 as 15a 37 
$0U = 000001 aa 15a 79 
OSERRT= 000000 oa 87 
OSGNSW= 000001 4s 154 41 
OSPOIN= 000001 ae 154 103 
O$SETU= 000001 as 154 31 5053 
PASCNT 002764 6014 808 856 2910 2913* 3029 3305* 3310* 3791 


1481 14944 


PATRI 007614 1482 1515é 
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PATR2 007634 G 1483 1525¢ 
PATRS 007644 G 1484 15314 
PATRG 007670 G 1485 15434 
PATRS 007702 G 1486 15504 
PATR6 007714 G 1487 15568 
PATR? 007734 G 1488 15664 1572 
PATR8 007766 G 1489 1577" 
PATTBL 007534 1475 14818 
PATTM 023753 4873 4897 4921 4945 4973 4997 5021 50294 
PCMDWD 003062 G 6204 1160* 1319 1441* 1870 1880 2522 2529" 2615" 4680*  4732* 
PIRE 002214 G 179# 454 
PNT = 001000 G 2884 
PRI = 002000 G 2898 
PR100 = 000000 G 2774 =§=©3350 
PR101 = 000040 G 2768 
PR102 = 000100 G 2754 
PRIO3 = 000140 G 2748 
PR104 = 000200 G 2734 
PRIOS = 000240 G 2728 
PR106 = 000300 G 2714 
PRIO7 = 000340 G 2708 394 3520 
PRXST 013770 G 2896 29484 4615 
PTCMDS 022464 4549 4550 4551 4552 4553 4554 4555 47068 
PWRFLG 003157 G 6654 3225* 3233 3455 3485* 
RANB 003070 G 6234 1090* 1092 1569* 1570 3180* 4252 4334* 4336 4392* 4394 
RANBC = 153624 G 4094 3180 
RANCMD 021260 4256 4302¢ 
RANDOM 003145 G 6514 1081 1966 2068 3766* 4216% 4418 4484* 4539* 
RANP = 000007 G 8 189 193 197 201 205 209 4064 685 689 693 697 701 
4244 4341 4349 4399 4498 4513 
RANRD 021320 4275 4310 4311 4312 4313 4314 4315 4316 4317 43298 
RANS 003072 G 6244 1090 1092* 1094 1569 1570* 1571 3182* 4252" 4254 4334 4392 
RANSC = 032561 G 4104 3182 
RANW § 021420 4359 4374 4388" 
RANWR 021374 4303 4304 4305 4306 4307 4308 4309 4357# 4437 
RANWVY 021406 4302 4372e 
RCVERM 023514 4827 50294 
= 104001 G 4208 694 711 2531 3971 4169 4343 4492 
ROR = 104401 G 4238 690 712 2524 3957 4155 4330 4507 4734 
RECCNT 003034 G 6074 07 855 1666* 1668 1737 1847* 1859" 1873* 1883 1886* 1900 2209* 
2211 2650 3028 3318+ 
RECLOG 003116 G 6384 1844 1854* 2900 
RECRED 006 822+ 829 831* 837 879« 881 931" 
RECTAP 006042 G 827 877 9834 
RECUD 010640 G 1753 18434 . 
RERM 004254 G 793# = 2156 2197 
RETRYC 003114 G 6374 2140 2149 2161* 2192 2202" 2262 2272 2343 2361 2479 
RFBC 002644 G 5944 3057 3058 3059 3060 
RFCERM 003760 G 793# 1980 
RFREC 002744 G 599# 3067 
RFUNR 002754 G 6004 3076 
RLEXM 004014 G 7934 86235 2368 
= 125401 G 4418 720 4163 
RNOPSC= 177740 G 405# 4239 4277 4337 4395 
RNR = 105401 G 438" 719 4159 
RNYM 004210 G 793# §=2891 
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CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0169 
RPF = 105001 G Qeae 721 4173 
RPR = 125001 G 4478 722 4177 
RPTFLG 003147 G. 6534 1239 1242* 4287+ 
RPTIA 014510 3031 31054 
RPTIB 014565 3041 31054 
RPTIC 014636 3051 3105¢ 
RPT1ID 014707 3061 31054 
RPTIF 015013 3070 31054 
RPTIG 015064 3079 3105¢ 
RPT11 015213 3089 3105¢ 
RRANV 002203 G 170# 3177 
RRBC 002604 G 5934 3047 3048 3049 3050 
RRECL = 0 06 4074 2137 2361 
RRREC 002724 G 5974 3068 
RRUNR 002734 G 5984 307 
RRVA 023441 4819 50294 
RTLE 012022 G 2132 2190 2260 23230 
RILRTIN 012146 2334 23768 
RWCPK 002330 G 5264 2279 
RWD = 102010 G 4534 526 682 698 724 1054 1702 1856 4043 4119 4141 4187 
RWERR 003120 G 6404 1993 2246* 2338* 2452 
RSSAVE 003110 G 6314 1611" 1623 3021* 3099 
SCCNT 002774 G 6024 1923"  2086* 53088 
SCERM 003734 G 793# = 2023 
SCH = 140004 G 4834 678 734 1038 1608 4021 4029 4037 
SCHBK 002442 G 548# 1404 1407" 1625+ 
SCHCNT= 000010 G 3964 1405 
SEQEND 003254 G 703#@ 4249 4435 
SETCH 306140 G 10364 4225 4427 4487 4544 
SETRW 006164 G 10534 4229 4290 4428 4458 4488 
SETUP 007114 G 1074 13644 4605 
= 105010 G 4654 728 4105 4113 
SFPTBL 002202 G 1678 
= 105410 G 4684 729 4101 4109 
SPAFLG 003161 G 6678 
s = 104010 G 4328 717 4123 4131 
SRR = 104410 G 4354 718 4127 4135 
STAERM 005066 G 8534 1599 1654 1681 1744 1981 2024 2043 2095 2120 2157 2198 2255 
2268 2310 2330 2351 2369 2892 
STAER1 005400 810 858 929# 1315* 1316" 1317* 
STAER2 005556 890 9298 - 
STAERS 005635 901 929" 
STAERS 005673 910 9298 
S.:AERS 005713 920 9294 2959 
STAER6 005522 838 882 9298 
STAER7 005472 816 864 929# 81322" 1324* 13268 
STAFLG 003156 G 6644 2932 3191" 3223 3241 3820* 4227 4231* 4430" 4490* 4559 
SvCGBL= 000000 aa 18 19 27 2 29 30 31 32 33 34 5 36 
37 38 39 40 41 42 43 44 45 46 47 48 49 
50 51 52 53 54 55 56 57 58 59 60 61 62 
64 65 67 68 69 70 71 72 73 74 75 76 7? 
78 79 80 81 82 83 84 85 86 87 88 89 90 
91 92 3 94 95 96 97 98 99 100 101 102 113 
114 128 129 135 136 148 149 150 166 167 168 805 806 
853 854 946 947 954 955 962 963 970 971 3017 3018 3120 
3121 3133 3134 3516 3517 3641 3642 36077 36078 3712 3713 4774 4775 
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4998 4999 5000 5002 5003 5004 5005 5006 5008 5009 5010 5011 5012 
5014 5015 5016 5017 5018 5020 5021 5022 5023 5024 5027 5034 5040 
5052 5053 5054 5065 5066 5067 5068 5069 

SvCSUB= 000000 Ge = 3771 3772 3812 3813 3826 3827 3838 3839 3850 3851 3862 3863 
3874 3875 3886 3887 3898 3899 3910 3911 3922 3923 3953 3954 

SVCTAG= 000000 4a 156 157 212 213 849 850 934 935 950 951 958 959 
966 967 974 975 2998 2999 3109 3110 3505 3506 3603 3604 3666 
3667 3701 3702 3746 3747 3808 3809 3822 3823 3834 3835 3846 3847 
3858 3859 3870 3871 3882 3883 3894 3895 3906 3907 3918 3919 3935 


SVCTST= 000000 4# 3763 3764 4213 4214 4415 4416 4481 4482 4536 4537 

SWBFLG 003150 G 6544 1002 1445 2548 2725 3930* 3933* 3963*  3977* 

SWB.C = 010000 G 3278 412 1448 2551 

S$LSYM= 010000 ae 1574 2134 8504 9354 9514 959" 9678 9754 2993 2998 29998 31108 


35064 36044 36674 37024 37478 38098 38238 38354 38474 38598 38718 38838  3895# 
39074 39198 39364 39878 4206 44068 44718 45288 47548 47978 50428 


—~ 

o 

o 

~m 
ooooo°oco 
ee ed ee ee el 


86* 1590* 1592 1696* 1732" 1734 1786* 1792" 1796 2751* 


53* 2754* 2760 3414e 3417" 3419 4590*  4600* 
TOERM 003713 
OOMM 


TSAM 004142 793# 2094 

TSBA = 002452 3954 

TSC.FC= 177717 3204 

1S08 002452 395 555a 899 1671* 2279* 2882* 3287" 3288*  3372* 3560* 3651"  3725* 3726* 
TSSR 002462 556# 1605 1649 1674 1727 1794 181 2930" 3285" 3383 3386 3533 3543 


6324 897 1649" 1812" 1814 1915 


TSSREG 003112 192 
557# 3290" 3294 3653 3685 3728* 373 


7 
2 
9 1931 
2 


8# 1605 1674 1724 1794 3385 3565 


4778 47918 
TS4CL 002522 575#@ 3788+ graye 3794 


TSG4INT 002512 
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TS4INO 006012 G 568 9468 
TS4IN1 006020 G 569 954a 
TS4IN2 006026 G 570 9628 
TSG4INS 006034 G 571 9704 
TS4VCT 022657 478 47918 ; 
TSARGC= 0000035 194 204 214 228 230 248 8078 814 8164 820 8378 842 8554 
862 8644 868 8818 886 8908 894 8968 905 9078 914 9168 924 
24798 2484 26784 2682 26958 27598 2783" 2789 29498 2953 29554 
30284 30378 3047# 3055 30574 3065 30674 3074 30768 08 
30854 33284 333 33938 24058 4 34678 3471 35438 3548 35718 
3576 35864 3591 36884 3693 3794# 3800 
TSCODE= 025004 29958 47778 «47828 «647898 = B14 48188) =—48228 = 48264 = 48308 = 48348 48388 48428 484k 
48484 48548 48604 48668 48728 48784 48848 48904 4896# 4902 49084 49148 49208 


TSERRN= 000001 4#@ =1597# 16524 16798 1742 19798 2022 20418 20938 21184 21558 21964 225358 
22664 23084 23284 23498 23678 26748 26918 27468 28908 31408 
TSEXCP= 000000 4777# = =64781 47824 4787 48488 4853 48548 4859 48604 4865 48664 4871 48728 


& 4960# 4965 4966# 4971 4972# = 4977 49788 4 49848 4989 4990# 4995 
4996# 5001 50024 5008# 5013 50148 5019 50204 

TSFLAG= 000041 8444 846 9268 928 3101# 3103 34884 36614 36964 3698 37408 3742 39948 
4296# 446464 45218 46918 47898 50344 

TSFREE= 024254 5053 50768 

TSGMAN= 000000 4a 

TSHILI= 000010 4777# 4780 47824 4786 48488 4852 4854 4858 4860# 4864 48664 4870 48728 
4876 48784 4882 48848 4888 4890# 4894 4896# 4900 49024 4906 4908# 4912 
49148 491 49208 4924 4926# 4930 49328 4936 49388 4942 49448 4948 49548 
& 4960# 4964 49664 4972# 4976 4978# 4 49848 4988 49908 4994 
4996# 5000 50024 5006 5008# 5012 50148 5018 502C# 5024 

TSLAST= 000001 4#@ 50534 5064 

TSLOLI= 000000 4777# = =4779 47828 4785 48488 4851 48548 4857° 48608 4863 48664 4869 48728 
4875 48784 4881 48848 4887 4890# 4893 4896" 4899 4902# 4905 4908" 4911 


TSLSYM= 010000 4a 157 213 850 93 951 959 967 975 3110 3506 3604 3667 


TSLTNO= 000005 50564 
TSNEST= 177777 aw 8a 1478 1564 1654 2128 2154 2208 8054 8498 8534 9348 9468 


T$NSO = 000000 84 215 220# 3005 30108 3750 37618 4757 4762# 5057 
T$NS1 = 000005 1478 156 1654 212 8054 849 8534 934 9468 950 954e 958 9628 
966 9708 974 3017# 3109 31208 3125 3133#@ 3505 35164 3605 36418 3666 
3677# = 3701 3712# 3746 37648 4205 42148 4405 4416# 4470 44828 4527 45378 
4753 4773# 4789 4795 4809# 4842 4950 4952 5027 5034 5040 
TSNS2 = 000002 37728 §©3808 3813# 3822 38278 3834 $839" 38518 3858 3863# 8 *370 387Se 


3846 
3882 3887# 3894 3899" 3906 39118 3918 39235# 3935 39548 3986 
TSPCNT= 000000 5064# 5065# 
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TSPTAB= 010043 50654 5071 

TSPTHV= 000001 32 50764 

TSPTNU= 000001 4# 50714 5076 

TSSAVL= 177777 Ga 

TSSEGL= 177777 as 

T$SIZE= 000007 5054 50764 

TSSUBN= 000000 48 37634 37718 38128 38264 38388 38508 38624 38748 38868 38984 39108 39228 
39538 42138 446158 44818 45368 

TSTAGL= 177777 4a 


TSTAGN= 010045 af 1478 1654 8054 8534 9468 9548 962m 9708 30178 31208 31338 35168 


TSTEMP= 000000 1144 1154 1164 1178 1184 1198 1564 2124 2154 8448 845 8494 9264 


TSTEST= 000005 4a 637634 = =3771 3812 3826 3838 3850 3862 3874 3886 3898 3910 3922 
3953 4213# 46158 44818 4536# 5056 
TSTSTM= 177777 4a 813 819 841 850 861 867 885 893 904 913 923 935 


T$TSTS= 000001 48 «37648 «0421468 «8644168 44828 453578 

TS$AU = 010016 37128 3740 3746 

TSSAUT= 010013 35164 3603 

TSSCLE= 010014 36414 366] 3666 

TSSDAT= 010044 50694 5074 

T$$0U = 010015 3677# 3696 3701 , 

TSSHAR= 010040 47734 4789 4796 

TS$HW = 010000 1478 156 ; 

TSSINI= 010012 3133 3488 3505 

TSSMSG= 010005 805a 844 849 853# 926 934 

T$$PC = 000001 50644 5076 

TSSPRO= 010011 31208 

TSSPTA= 010045 50644 5070 50714 

TSSRPT= 010010 3017# 3101 3109 

TS$SOF= 010041 48094 5034 5041 ~ 

TS$SRV= 010007 9468 950 9548 958 9628 966 9708 974. . 

TS$$SUB= 010035 37724 ©3808 3813# 3822 38278 3834 3839" 3846 38518 3858 38638 3870 387Sa 
508¢ ty 3894 3899" 3906 39118 3918 3925H 8 3935 39544 3986 

T$$Sw = 010001 1654 

TSSTES= 010057 3764a 4234 4205 42148 4296 4405 4416# 4464 4470 44828 4521 4527 45378 
4691 4 

11 017410 G 114 37630 

TISWB 003153 G 657# 2714 3950" 5990 


nu—oO 


oe oO ° a ° Oo o oO ° 3 oD 
ODONOUEWWH a ea eo 


Cc 

z 

sal 
nou 


SERFLG= 


017420 


000400 


o 
DOAQDADADAQDAIAAIAG AAAGAAAAAAG Aq 


=) So 
DAAQDQAAGQAIAAGAAG 
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2221 


1551 
8248 


2248+ 
3961 


1968 


3040 


4083 


3561 
4091 


4057 
5027 
4952 


2055 
1259 


825 


2290* 
3966 


2070 


3167+ 


4145 


3649 


4061 
5034 
5027 


2064 
1279 


8268 


23468 
3969 


2519 


4358 


4065 


5034 


2573 
2576 


827 


2364* 
3972 


4069 


4630 
2596 


8294 


2459 
3975 


4073 


4640 


830 


3980 


4193 


83ie 


3983 


4197 


832 


4235 


SEQ 0174 


4373 
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8354 836 8708 8714 872 8734 874 8798 880 9488 949 9568 957 
964" 965 9728 973 9878 9884 989 9930 994 9954 9968 997 9988 
. 999 10004 1001 10054 1006 1009# 10104 1011 10128 1013 1017# 1018 10248 
1025 1037# 1038 10548 1055 10568 1057 10584 1059 10694 1070 10904 1091 
10924 1093 10944 1095 1096# 1097 11014 #1102 11054 1106 1115#@ 81116 11288 
1129 11424 =61143 1158# 8 1159 1160# 1161 1170# = =1171 1242# 1243 1313#@ 8 1314 
1319# 1320 13228 861323 13248 1325 1326# 81327 13394 1340 13454 1346 13508 
1351 13524 81353 13654 1366 13808 1381 13914 1392 13964 1397 14048 1405 
14074 1408 14164 1417 14184 1419 1426# 1427 14318 1432 1437# 1438 14418 
1442 14434 1444 14488 1449 14538 1454 14634 14644 1465 14664 14678 1468 
14694 1470 14714 = 1472 1473#@ 8614748 81475 14954 1496 14978 1498 15004 1501 
15024 1503 15074 1508 1517# = 1518 15334 1534 1558# 1559 1567# 1568 15864 
1587 15904 1591 16118 1612 16234 1624 16254 1626 16294 1630 16318 1632 
16374 1638 16394 1640 1649# 1650 16604 1661 16664 1667 16684 1669 16968 
1697 17194 1720 17248 1726 1727# = =©1728# =§=1729 17324 = =1733 1737# = =61738# =§=1739 
1757# = =1758 1767# §=1768 1771# = =61772 17864 81787 17928 = §=1793 18128 813 18148 
18154 1816 18174 1818# 1819 1820# 1821 18224 1823 18284 1829 1830# 1831 
18354 1836 18478 1848 18548 1855 18594 1860 18734 1874 18864 1887 19008 
1901 19384 1939 1943# 1944 1950# 1951 19544 1955 1976# 1977 1996@ 1997 
20194 2020 20814 2082 20864 2087 2090# 2091 21374 21388 2139 21438 2144 
2161# 2162 21634 2164 2168# 2169 2178" 2179 22024 2203 22078 22098 
2210 22114 2212 22218 22468 2247 22488 49 22728 = §=2273 22778 
22798 2280 22904 2291 2338" 2339 23468 2347 23648 2365 23888 23908 
1 23954 2396 23978 2398# 2399% 2400 24014 2402 24064 2407 24108 24118 


3197# 3198 31998 2 32048 32058 3206 32094 3210 32118 32128 3213 32238 
3224 3225a 2 3231# 3232 3249# 3250 32548 32618 3262 32708 3271 
32768 32784 32798 3280 32854 3286 32874 32888 32908 3291 3305¢ 


3415 34174 3418 3421 34618 34628 3463 34808 3481 34828 3485 34858 3486 
35248 3525 35334 3534 35418 3542 35508 3551 35528 35538 3554 35608 3561 
35694 3570 3584" 36288 3629 3651# 3652 36804 36814 36838 3684 
3716# 37174 3718 3719# 3720 37238 3724 37258 37268 3727 37288 3729 37378 
3738 37664 3767 3768# 3769 3775# 863776 37848 3785 37868 37888 37898 
38164 3817 38208 3821 3830# 3831 38428¢ 3843 38548 3855 38668 3867 
3878" 3879 3890# 3891 39024 39148 3915 3926# 3927 39308 3931 39338 
3934 3939 3940# 3941 3950# 3951 3957# 3958 39608 39634 3964 3965# 


4374 4389" 4390 4392#@ 4393 43948 43958 4396 43978 4398 43998 4400 44188 
4419 44208 4421 44228 64238 = 4424 44258 4427 44308 443) 44428 4445 44458 
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4446 44508 4451 4578 4458 44608 4461 64848 4485 44868 4687 46908 4491 


47368 4 47388 47398 4740 47418 4742 47438 4744 

SFSAND= 000310 4a 877 986 992 1004 1074 1079 1083 1086 1089 1100 1121 1124 
1127 1137 1154 1187 1190 1193 1196 1199 1216 1227 1241 1252 1255 
1258 1261 1264 1281 1292 1344 1 1390 1430 1447 1506 1594 1610 
1617 1636 1648 1665 1676 1704 1 1736 1827 1846 1851 1858 1866 
1869 +872 1882 1885 1917 1920 1 1931 1937 1962 1965 1968 1975 
1995 2057 2066 2070 2077 2080 2 2142 2151 2167 2194 2206 2241 
2245 2264 2276 2326 2342 2345 2 2387 2394 2405 2416 2430 2444 
2454 2461 2473 2476 2521 2550 2 2569 2572 2575 2578 2581 2598 
2634 26435 2649 2652 2672 2689 2 2724 2727 2730 2758 2782 2814 
2822 2874 2888 2902 2912 2926 2 2978 3027 3138 3159 3166 3179 
3235 3243 3275 3301 3304 3327 3 3362 3385 3388 3443 3457 3466 
3523 3540 3565 3568 3649 3783 3 3945 4008 4229 4251 4437 4566 
4610 4615 4626 4629 4632 4642 4 4667 

SFSBAD= 000401 4k 822 824 826 829 831 835 870 87 877 879 948 
956 964 972 986 987 992 995 998 1000 004 1005 1009 
1012 017 1024 1037 1054 1056 069 074 079 1086 1089 


1227 1241 


PRD PRD PRD we as rs st st et et ot ot ot 
WH DO ODONOOVES WH — SOOO VWONYW— Ow 
—FONYDBNNOFS VRDOOVOWUYVOYIN —-OOWN 
° . 
TO RD ae at rt st at at at oe os ot ot oe 
Wr OO@OnAOuflwnr—— 
fmol Oonrviodonrorouovo-— 
NRM—WFWEMEA UO WOMRWu 
TORI ss et et ot os ot os 
MmM—OCOWOnNAOUWSWWa— 
FMW ONO fF O— ON 
—WOf Onl OnwNOWOo— 
et tk ot ot ot 
OWOnNOUSWWN—oO 
WP — —~ WW On -—Wwo 
OP VOOWWONMOnNW 
_" 
“ 
uw 
co 


1 

13 

14 

15 
1586 1594 1 1617 
1648 1660 1666 1668 1724 27 
1732 36 1737 1767 1771 1820 22 
1827 828 1830 1846 1847 1869 72 
1873 1882 1885 1900 1917 1943 1950 
1954 1962 1965 1975 1976 2066 2073 2077 
2080 2081 2086 2136 2137 2163 2167 2168 
2178 2194 2202 2207 2209 2246 2248 2264 
2272 2276 2277 2290 2326 38 2345 236 2364 2387 


2727 2730 2750 2778 82 2807 2809 2814 2822 2827 2841 
2845 2850 2862 2867 69 2874 2875 2877 2888 2902 2903 
2912 2913 2917 2926 29 2930 29352 2938 2983 2986 2988 
2990 3021 3027 3138 59 3166 3167 3179 3180 3182 
3191 3193 3197 9 3225 3225 3235 3243 3249 
3254 3261 3270 3276 8 3287 3290 3304 3305 3310 
3318 3327 3357 362 3364 7 3385 3388 3417 3443 3457 

3 3533 3550 

9 3719 

3 3816 

2 3939 
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SFSBLA= 000170 4# = =3440 

SFSCAS= 000150 as 

SFSDEC= 000220 4s 

$F$D0 = 000340 4# 1074 1079 1121 1187 1252 1344 1617 1636 1827 2416 2430 2464 
2563 2569 2634 2814 2874 3027 3166 3275 3362 3523 3649 3783 3945 
4008 4251 4437 4566 4610 4626 

SFSFAL= 000405 4a 

$F$GO0= 000400 4a 822 823 824 825 826 827 829 830 831 832 833 834 
835 836 870 871 872 873 874 875 879 880 948 949 956 
957 964 965 972 973 984 987 988 989 990 993 994 99 

96 998 999 1000 1001 1002 1005 1006 1009 1010 1011 1012 

1013 1017 1018 1024 1025 1037 1038 1054 1055 1056 1057 1058 1059 
1069 1070 1071 1072 1076 1077 1081 1084 1087 1090 1091 1092 1093 
1094 1095 1096 1097 1098 1101 1102 1105 1106 1115 1116 1118 1119 
1122 1125 1128 1129 1135 1142 1143 1152 1158 1159 1160 1161 1170 
1171 1184 1185 1188 1191 1194 1197 1214 1225 1239 1242 1243 1249 
1250 1253 1256 1259 1262 1279 1290 1313 1314 1319 1320 1322 1323 
1324 1325 1326 + 1327 1339 1340 1341 1342 1345 1346 1350 1351 1352 
1353 1365 1366 1377 1380 1381 1388 1391 1392 1396 1397 1404 1405 
1407 1408 1416 1417 1418 1419 1426 1427 1428 1431 1432 1437 1438 
1441 1442 1443 1444 1445 1448 1449 1453 1454 1463 1464 1465 1466 
1467 1468 1469 1470 1471 1472 1473 1474 1475 1495 1496 1497 1498 
1500 1501 1502 1503 1504 1507 1508 1517 1518 1533 1534 1558 1559 
1567 1568 1586 1587 1590 1591 1592 1608 1611 1612 1614 1615 1623 
1624 1625 1626 1629 1630 1631 1632 1633 1634 1637 1638 1639 1640 
1646 1649 1650 1660 1661 1663 1666 1667 1668 1969 1674 1696 1697 
1702 1716 1719 1720 1724 1726 1727 1728 1729 1732 1733 1734 1737 
1738 1739 1757 1758 1767 1768 1771 1772 1786 178’ 1792 1793 1812 
1813 1814 1815 1816 1817 1818 1819 1820 1821 1822 1823 1824 1825 
1828 1829 1830 1831 1835 1836 1844 1847 1848 1849 1854 1855 1856 
1859 1860 1864 1867 1870 1873 1874 1880 1883 1886 1887 1900 1901 
1915 1918 1921 1929 1935 1938 1939 1943 1944 1950 1951 1954 1955 
1960 1963 1966 1973 1976 1977 1993 1996 1997 2019 2020 2055 2064 
2068 2075 2078 2081 2082 2086 2087 2090 2091 2134 2137 2138 2139 
2140 214 2144 2149 2161 2162 2163 2164 2165 2168 2169 2178 2179 
2192 2202 2203 2204 2207 2208 2209 2210 2211 2212 2221 2222 2239 
2245 2246 2247 2248 2259 2262 2272 2273 2274 2277 2278 2279 2280 
2290 2291 2324 2338 2339 2340 2345 2346 2347 2361 2364 2365 2385 
2388 2389 2390 2391 2392 2395 2396 2397 2398 2399 2400 2401 2402 
2403 2406 2407 2410 2411 2412 2413 2414 2417 2418 2419 2420 2424 
2425 2426 2427 2428 2431 2432 2433 2434 2438 2439 2440 2441 2442 
2445 2446 2447 2448 2452 2455 2456 2457 2458 2459 2462 2463 2464 
2465 2469 2470 2471 2474 2519 2522 2523 2524 2525 2526 2527 2529 
2530 2531 2532 2533 2534 2545 2546 2547 2548 255 2552 2555 2556 
2558 2559 2560 2561 2566 2567 2570 2573 2576 2579 2596 2615 2614 
2615 2616 2628 2629 26350 2631 2632 2635 2636 2641 2647 2650 2667 
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2668 2669 2670 2687 2705 2706 2707 2710 2711 2712 2713 2714 
2725 2728 2750 2751 2756 2778 2779 2780 2807 2808 2809 2810 
2812 2815 2816 2820 2827 2828 2841 2842 2845 2846 2850 2851 
2863 2864 2865 2866 2867 2868 2869 2870 2871 2872 2875 2876 
2878 2882 2883 2886 2900 2903 2904 2910 2913 2914 2917 2918 
2920 2921 2924 2927 2930 2931 2932 2933 2938 2939 2976 298 

2986 2987 2988 2989 2990 2991 3021 3022 3024 3025 3099 3100 
3157 3161 3162 3163 3164 3167 3168 3169 3170 3177 3180 181 
3183 3191 3192 3193 3194 3197 3198 3199 3200 3204 3205 3206 
3210 3211 3212 3213 3225 3224 3225 3226 3231 3232 3235 3239 
3247 3249 3250 3254 3255 3261 3262 3270 3271 3272 3273 3276 
3278 3279 3280 3283 3285 3286 3287 3288 3289 3290 3291 3299 
3305 3306 3310 3311 3318 3319 3325 3353 3359 3360 3364 3365 
3368 3371 3372 3373 3383 3386 3414 3415 3417 3418 3421 3441 
3461 3462 3463 3464 3480 3481 3482 3483 3485 3486 3520 3521 
3525 3533 3534 3538 3541 3542 3550 3551 3552 3553 3554 3560 
3563 3566 3569 3570 3584 3585 3628 3629 3646 3647 3651 3652 
3681 3682 3683 3684 3716 3717 3718 3719 3720 3723 3724 3725 
3727 3728 372 3737 3738 3766 3767 3768 3769 3775 3776 3780 


4708 4709 4710 4711 4712 4713 4714 1 4716 4717 4718 4732 
4734 4735 4736 4737 4738 4739 4740 474) 4742 4743 4744 

SFSIF = 000110 Es 875 888 984 990 1002 1007 1014 1019 1021 1026 1081 
1087 1098 1103 1107 1109 1111 1122 1125 1130 1132 1135 1137 
1146 1152 1156 1188 1191 1194 1197 1201 1203 1207 1209 1211 
1216 1222 1225 1229 1231 1233 1239 1246 1253 1256 1259 1262 
1268 1272 1274 1276 1279 1281 1287 1290 1294 1296 1298 1377 
1388 1393 1398 1428 1434 1439 1445 1450 1504 1509 1592 1603 
1627 1646 1658 1663 1670 1674 1684 1702 1714 1716 1721 1730 
1748 1844 1849 1851 1856 1861 1864 1867 1870 1875 1877 1880 
1888 1890 1892 1894 1896 1898 1902 1915 1918 1921 1925 1927 
1931 1935 1940 1945 1947 1952 1957 1960 1963 1966 1968 1973 
1985 1987 1989 1991 993 1998 2055 2057 2062 2064 2068 2070 
2078 2083 2088 2097 2099 2101 2134 2140 2145 2147 2149 2151 
2165 2175 2180 2192 2200 2204 2218 2223 2239 2243 2250 2258 
2270 2274 2287 2292 2294 2524 2536 2340 2343 2356 2358 2361 


= 





PARAMETER CODING MACY11 30(1046) cheat weit 09:10 PAGE 144 
CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0179 


2375 2385 2392 2403 240 245 2459 2466 2471 2474 
2490 2492 2494 2496 2519 2536 2548 2553 2570 2573 
2585 2589 2591 2593 2596 2598 2604 2606 2641 2645 
2656 2670 2684 2687 2714 2718 2722 2725 2728 


SFSINC= 000210 4# 3364 3414 3433 3436 

$F$L00= 000200 aa 

SFSNAM= 000160 44 3363 3439 

$SFSNO = 000403 4a 822 823 824 825 826 827 9 830 831 
835 836 870 872 873 874 875 879 880 948 
964 965 972 973 984 987 989 990 993 94 
999 1000 1001 1005 1006 100 1011 1012 1013 1017 
1037 1038 1054 1055 1056 1057 1058 1059 1069 1070 
1090 1091 1092 1093 1094 1095 1096 1097 1098 1101 
1115 1116 1119 1122 1125 1128) =, «1129 1135 1137 1142 
1159 1160 1161 1170 1171 1185 1188 1191 1194 1214 
1250 1253 1256 ~ 1259 1279 1281 1313 1314 1319 1320 
1325 1326 1327 1339 1340 1342 1345 1346 1350 1351 
1366 1377 1380 1381 1388 1391 1392 1396 1397 1404 
1416 1417 1418 1419 1426 1427 1428 1431 1432 1437 
1443 1444 1448 1449 1453 1454 1463 1465 1466 1468 
1472 1473 1475 1495 1496 1497 1498 1500 1501 1502 
1508 1517 1518 1533 1534 1558 1559 1567 1568 1586 
1592 1608 1611 1612 1615 1623 1624 1625 1626 1629 
1634 1637 1638 1639 1640 1649 1650 1660 1661 1666 
1674 1696 1697 1702 1719 1720 1724 1726 1727 1729 
1737 1739 1757 1758 1767 1768 1771 1772 1786 1787 
1813 1814 1816 1817 1819 1820 1821 1822 1823 1825 
1831 1835 1836 1847 1848 1849 1851 1854 1855 1856 
1867 1870 1873 1874 1880 1883 - 1886 1887 1900 1901 
1931 1935 1938 1939 1943 1944 1950 1951 1954 1955 
1977 1996 1997 2019 2020 - 20 2064 2081 2082 2086 
2134 2137 2139 2140 2143 2144 2149 2161 2162 2163 
2178 2179 2192 2202 2203 2207 2208 2209 2210 2211 
2239 2243 2246 2247 2248 2249 2262 2272 2273 2277 
2290 2291 2324 2338 2339 2340 2343 2346 2347 2361 
2389 2390 2391 2392 2395 2396 2397 2399 2400 2401 
2407 2410 2412 2414 2417 2418 2419 2420 2424 2426 
2433 2434 2438 2440 2442 2445 2446 2447 2448 2455 
2463 2464 2465 2469 2470 2522 2523 2524 2525 2526 
2531 2532 2533 2534 2545 2547 2551 2552 2555 2556 
2567 2570 2573 2576 2596 2598 2613 2614 2615 2616 
2635 2636 2650 2667 2669 2670 2687 2705 2707 2710 
2722 2728 2750 2751 2756 2778 2779 2780 2807 2808 
2815 2816 2820 2827 2828 2841 2842 2845 2846 2850 
2864 2866 2867 2868 2869 2870 2872 2875 2876 2877 
2886 2903 2904 2910 2915 2914 2917 2918 2919 2921 
2932 2935 2938 2939 2983 2984 2986 2987 2988 2989 
3022 3025 3099 3100 3136 3161 3162 3164 3167 3168 
3181 3182 3183 3191 3192 3195 3194 3197 3198 3199 





L 14 
PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 145 
CZ1SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS 


3209 3210 3211 3213 3223 3224 3225 3226 3231 3232 
3255 3261 3262 3270 1g Oe fe, 3276 3277 3278 3280 
3289 3290 3291 3299 3302 3305 3306 3310 3311 3318 
3360 3372 3373 3383 3386 3390 3441 3461 3463 3464 
3483 . 3485 3486 3521 3524 3525 3533 3534 3541 3542 
3554 3560 3561 3563 3566 3569 3570 3584 3585 3628 
3652 3680 3682 3683. 3684 3716 3718 3719 3720 3723 
3728 3729 3737 3738 3766 3767 3768 3769 3775 3776 
3786 3787 3788 3790 3791 3816 3817 3820 3821 3830 
3854 3855 3866 3867 3878 3879 3890 3891 3902 3903 
3927 3930 3931 3935 3934 3941 3943 3950 3951 


$FSOR = 000320 al 877 986 992 1004 1074 1079 1083 1086 1089 
1127 1137 1154 1187 1190 1193 1196 1199 1216 1227 
12 1261 1264 1281 1292 1344 1379 1390 143 1447 


SFSRTN= 000300 oe 
SFSSEL= 000140 4a é 
SFSTHE= 000330 4a 877 986 99 1004 1083 1086 1089 1100 1124 
1190 1193 1196 1199 1219 1227 1241 1255 1258 1261 
1379 1390 1430 1447 1506 1594 1610 1648 1665 1676 
1846 1853 1858 1866 1869 1872 1882 1885 1917 1920 
1962 1965 1971 1975 1995 2059 2066 2073 2077 2080 
2167 2194 2206 2241 2245 2264 2276 2326 2342 2345 
2405 2454 2461 2473 2478 2521 2550 2572 2575 2578 
2649 2652 2672 2689 2716 2724 2727 2730 2758 2782 
2912 2926 2929 2978 3138 3159 3179 3235 3243 3301 
3385 3388 3443 3457 3466 3540 3565 3568 3793 4229 





PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 146 


CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS . SEQ 0181 

SFSTRU= 000404 4a 

SFSUNT= 000130 48 =1588 1605 1698 1750 1769 1773 1788 1794 2720 2775 28435 2847 
3195 3201 3207 3214 4246 4266 4432 4447 

SFSWHI= 000120 4# = =1071 1072 1076 1077 1118 1119 1137 1149 1162 1167 1184 1185 
1216 1236 1249 1250 1281 1301 1341 1342 1347 1614 1615 1620 1633 
1634 1641 1824 1825 1832 1851 1931 1968 2057 2070 2151 2413 2414 
2421 2427 2428 2435 2441 2442 2449 2476 2560 2561 2566 2567 2598 
2609 2617 2631 2632 2637 2811 2812 2817 2871 2872 2879 3024 3025 
3096 3163 3164 3171 3272 3273 3321 3355 3359 3360 3450 3520 3521 
3599 3646 3647 3657 3780 3781 3805 3942 3943 3947 4005 4006 4011 
ater ret rts 4434 4435 4439 4565 4564 4607 4608 4623 4624 4642 

SFSYES= 000402 4@ 823 825 827 830 832 834 836 872 874 875 880 888 
949 957 965 973 984 989 990 994 997 999 1001 1002 1006 
1007 1011 1013 1014 1018 1019 1021 1025 1026 1038 1055 1057 1059 
1070 1072 1077 1081 1084 1087 1091 1093 1095 1097 1098 1102 1103 
1106 1107 1109 1111 1116 1119 1122 1125 1129 1130 1132 1135 1137 
1143 1144 1146 1152 1156 1159 1161 1171 1185 1188 1191 1194 1197 
1201 1203 1207 1209 1211 1214 1216 1222 1225 1229 1231 1235 1239 
1243 1246 1250 1253 1256 1259 1262 1266 1268 1272 1274 1276 1279 
1281 1287 1290 1294 1296 1298 1314 1320 1323 1325 1327 1340 1342 
1346 1351 1353 1366 1377 1381 1382 1388 1392 1393 1397 1398 1405 
1408 1417 1419 1427 1428 1432 1434 1438 1439 1442 1444 1445 1449 
1450 1454 1465 1468 1470 1472 1475 1496 1498 1501 1503 1504 1508 
1509 1518 1534 1559 1568 1587 1591 1592 1603 1608 1612 1615 1624 
1626 1627 1630 1632 1634 1638 1640 1646 1650 1658 1661 1663 1667 
1669 1670 1674 1684 1697 1702 1714 1716 1720 1721 1726 1729 1730 
1733 1734 1739 1748 1758 1768 1772 1787 1793 1813 1816 1819 1821 
1825 1825 1829 1831 1836 1844 1848 1849 1851 1855 1856 1860 1861 
1864 1867 1870 1874 1875 1877 1880 1883 1887 1888 1890 1892 1894 
1896 1898 1901 1902 1915 1918 1921 1925 1927 1929 1931 1935 1939 
1940 1944 1945 1947 1951 1952 1955 1957 1960 1963 1966 1968 1973 
1977 1983 1985 1987 1989 1991 1993 1997 1998 2020 2055 2057 2062 
2064 2068 2070 2075 2078 2082 20835 2087 2088 2091 2097 2099 2101 
2134 2139 2140 2144 2145 2147 2149 2151 2159 2162 2164 2165 2169 
2175 2179 2180 2192 2200 2205 2204 2208 2210 2212 2218 2222 2223 
2239 2243 2247 2249 2250 2258 2262 2270 2273 2274 2278 2280 2287 
2291 2292 2294 2324 2336 2339 2340 2343 2347 2356 2358 2361 2365 
2373 2375 2385 2389 2391 2392 2396 2399 2400 2402 2403 2407 2408 
2412 2414 2418 2420 2426 2428 2432 2434 2440 2442 2446 2448 2452 
2457 2458 2459 2463 2465 2466 2470 2471 2474 2476 2486 2488 2490 
2492 2494 2496 2519 2523 2525 2527 2530 2532 2534 2536 2547 2548 
2552 2553 2556 2559 2561 2567 2570 2573 2576 2579 2583 2585 2589 
2591 2593 2596 2598 2604 2606 2614 2616 2630 2632 2636 2641 2645 
2647 2650 2654 2656 2669 2670 2684 2687 2702 2707 2711 2713 2714 
2718 2722 2725 2728 2733 2735 2737 2751 2756 2770 2779 2780 2791 
2793 2795 2808 2810 2812 2816 2820 2825 2828 2842 2846 2851 2863 
2866 2868 2870 2872 2876 2878 2883 2886 2894 2898 2900 2904 2906 
2910 2914 2915 2918 2 e053 292 2931 2933 2934 2936 2939 2976 





PARAMETER CODING MACY11 30(1046) Bay se, 09:10 PAGE 147 
CZ1SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0182 


SIFLEV= 177777 4a 8754 8884 9848 990# . 1002 1007# 10198 1026 10814 10848 1087# 10984 


$1SKO0 = 000001 8754 888 9844 1026 10814 1111 1122@ §=1146 1152#@ = §=1156 11884 81233 12398 
1 12534 1298 1377# = =§=©1382 13884 1398 14284 1439 14454 1450 15044 1509 
15924 1603 16084 1627 1646# 1658 16634 16748 1684 1702#@ 861714 17168 
1 17344 1748 18448 1902 1915#@ 1991 1993# 1998 20554 2062 20648 2101 
21348 2147 21498 159 2165# 2180 21928 22048 22398 2294 23248 
2336 23404 2375 23858 2519# 2536 25488 25704 2606 26418 2645 
26474 2656 20708 795 28208 2825 28868 29008 906 29108 1 29248 

29764 3000 31368 154 3157#@ 8 3174 31778 3184 32338 3267 32838 3316 

3325a 4 3353@ 3453 3455#@ 3477 35384 3596 37918 802 42278 46138 
4617 46274 4651 4657# 4676 

$1SK1 = 000001 9904 1019 10844 1109 1125@ 81130 11358 81144 11914 1209 1214#@ #1231 12568 
1274 12794 1296 18498 1898 1918# 1927 1929@ 1952 19604 1989 20688 
21408 & 22438 2250 22628 270 22748 23438 356 23618 23928 
2494 25734 591 2596# 2604 26508 54 26878 29278 2934 32398 3265 
52998 3314 33838 86341 34418 446 34648 3475 35638 3594 4630# 4635 46408 
4649 46654 4669 

$1SK2 = 000001 1002#@ 1007 10878 07 11948 


207 1225@ 1229 i t+ 1272 12908 1294 18568 


209 2 2 
25 737 27568 2770 27808 2791 32418 3263 35028 
3312 33864 3400 


PARAMETER CODING MACY!1 30(1046) 26-AUG-79 09:10 PAGE 148 
CZ1SWB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYM@OLS SEQ 0183 © 
$1SsK3 = 090001 10984 861103 1197# 1201 12628 1266 18648 1894 1966# 1985 20788 «62088 «= 24598 
2690 25798 2583 27258 2735 ssece 3256 
$1SK4 = 090001 18678 1892 1973@ 1983 26718 2688 #27288 2733 
$155 = 000001 18708 1675 18808 1890 24768 26486 
$1SK6 = 000001 18834 1888 
SLOCTAS 177777 4a B76 888 985 991 1003 1007 1014 10:5 1019 1021 1022 1026 
1071 1073 1076 1078 1082 1085 1088 1099 1103 1107 110 1111 1118 
1120 1123 1126 1130 1132 1133 1136: «1158 1139 11446 1146 1149 1150 
1153 1156 1162 1163 1167 1168 1184 1186 1189 1192 1195 1198 1201 
1203 1204 1207 1209 1211 1212 1215 « 1217 1218 1222 1223 1226 1229 
1231 1233 1236 1237 1240 1246 12469 - 1251 1254 1257 1260 1263 1266 
1268 1269 1272 1274 1276 1277 1280 1282 1283 1287 1288 1291 129% 
1296 1298 1201 1302 1341 1343 1347 1348 1378 1382 1389 1393 1394 
1398 1429 1434 14635 1439 1446 1450 1505 1509 1588 1593 1603 1606 
1609 1614 1616 1620 1621 1627 1633 1635 1641 1642 1647 1658 1664 
1670 1675 1684 1698 1703 1714 1717. 1721 1722 1730 1735 1748 1751 
1769 1774 1788 1795 1797 1798 1824 1826 1832 1833 1845 1850 1852 
1857 1861 1862 1865 1868 1871 1875 1877 1878 1881 1884 1888 1890 
1892 1894 1896 1898 1902 1916 1919 1922 1925 1927 1930 1932 1933 
1936 1940 1941 1945 1947 1948 1952 1957 1958 1961 1964 1967 1969 
: 1970 1974 1983 1985 1987 1989 1991 1994 1998 2056 2058 2062 2065 
2069 = 2071 2072 2076 «=6.2079—Ss 2083 )—Ss« 2084 2088 2097 #2099 &# 2101 2135 2141 
2145 2147 = 2150~—Ss 2.152 2159 2166 8 2175 2176 «2180 2193 2200 2205 2218 
2219 = 2223 2240 2244 2250 2258 2259 2263 2270 2275 2287 «=—62288 )3~— 2292 
2294 2325 23360 2341 2344 2356 2358 2359 2362 2373 2375 2386 4 3=—s_ 2393 
2404 2408 2413 2415 2421 2422 2427 43=—s 2429S 2485 2436 3=—s 24 2443 = 2449 
2450 2453 2460 2466 2467 2472 2475 2477 = 2486S 248B 2S 2490S 2492 2494 
2496 2520 2536 2549 2553 2560 2562 2566 2568 2571 2574 2577 = 2580 
2583 «= 2585 2586 «©=6©._ 2589-—Sf—s« 291 2593 = - 2594 2597 2599 2600 2604 2606 2609 
2610 2617 2618 2631 2633 «=«- 2637s 2638) ~=—s 2642 2645 2648 2651 2654 2656 
2671 2684 2685 2688 $2702 2703 ~= 2715 2718 2720 2723 2726 82729 = 2733 
2735 2737 —Ss 2757 2770 »=—6 2776~Ss 2781 2791 2793 =. 2795 2811 2813 2817 2818 
2821 2825 2843 2848 2871 2873 2879 2880 2887 2894 2895 2898 2901 
2906 ~=s._- 29111 2915 2925 2928 2934 2936 = -2977 3000 3024 3026 3096 3097 
3137 3154 3158 3163 3165 3171 3172 3174 3178 3184 3195 3202 3207 
3215 3234 3239 3242 3247 3251 3252 3256 3258 3259 3263 3265 3267 
3272 3274 3283 3300 3303 = - 33307 3308 «8=-_- 3312 3314 3316 3321 3322 3326 
3347 3354 3356 3359 3361 3365 3366 3368 3370 3384 3387 3389 3391 
3400 3402 3403 3412 3415 3416 3418 3420 3433 3434 3436 3437 3439 
3442 3446 3450 3451 3453 = 3456 3465 3475 3477 3520 3522 3539 3557 
3558 3564 3567 3579 3581 3582 3594 3596 3599 3600 3646 3648 3657 
3658 3780 3782 3792 3802 3805 3806 3=s_- 3942 3944 3947 3948 4005 4007 
4011 4012. 4228)«=—S 4233) 42466) 4248) = 4250) 4258 = 4259 4267) 43828 4486 
4439 4440 4448 4563 4565 4607 4609 4614 4617 4623 4625 4628 4631 
4635 4637 = 4638 = 4641 4643 4644 4649 4651 4654 4655 4658 4666 4669 
4671 4672 4676 4682 4683 4687 4688 
$LSTCN= 177777 49 «B75 877 888 984 986 990 992 1002 1004 1007 1015 1016 
1019 1022 1023 1026 1071 1072 1074 1076 1077 1079 1081 1083 1084 
1086 1087 1089 1098 1100 1103 1107 1109 1111 1118 1119 1121 1122 
1124 1125 1127 1130 1133 1134 1135 1140 1144 1146 1149 1150 1152 
1154 1156 1162 1163 1167 1168 1184 1185 1187 1188 1190 1191 1193 
1194 1196 1197 1199 1201 1204 1205 1207 1209 1212 1213 1214 1219 
1223 1224 1225 1227 1229 1231 1233 1236 1237 1239 1241 1246 1249 
1250 1252 1253 1255 1256 1258 1259 1261 1262 1264 1266 1269 1270 
1272 1274 1277 1278 1279 1284 1288 1289 1290 1292 1294 1296 1298 
1301 1302 1341 1342 1344 1347 1348 1377 1379 1382 1388 1390 1394 








¢ 15 
PARAMETER CODING MACY11 30(1046) chase tate 09:10 PAGE 149 


CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0184 
1395 1398 1428 1430 1435 1436 1439 1445 1447 1450 1504 1506 1509 
1588 1589 1592 1594 1603 1605 1608 1610 1614 1615 1617 1620 1621 
1627 1633 1634 1636 1641 1642 1646 1648 1658 1663 1665 1670 1674 
1676 1684 1698 1699 1702 1704 1714. = 1716 1718 1722 1723 1730 1734 
1736 1748 1750 1769 1770 1773 1788 1789 1794 1799 1824 1825 1827 
1832 1833 1844 1846 1849 1853 1856 1858 1862 1863 1864 1866 1867 
1869 1870 1872 1875 1878 1879 1880 1882 1883 1885 1888 1890 1892 
1894 1896 1898 1902 1915 1917 1918 1920 1921 1923 1925 1927 1929 
1934 1935 1937 1941 1942 1945 1948 1949 1952 1958 1959 1960 1962 
1963 1965 1966 1971 1973 1975 1983 1985 1987 1989 1991 1993 1995 
1998 2055 2059 2062 2064 2066 2068 2073 2075 2077 2078 2080 2084 
2085 2088 2097 2099 2101 2134 2136 2140 2142 2145 2147 2149 2153 
2159 2165 2167 2176 2177 2180 2192 2194 2200 2204 2206 2219 2220 
2223 2239 2241 2243 2245 2250 2259 2260 2262 2264 2270 2274 2276 
2288 2289 2292 2294 2324 2326 2336 2340 2342 2343 2345 2356 2359 
2360 2361 2363 2373 2375 2385 2387 2392 2394 240 2405 2408 2413 
2414 2416 2421 2422 2427 2428 2430 2435 2436 2441 2442 2444 2449 
2450 2452 2454 2459 2461 2467 2468 2471 2473 2474 2478 2486 2488 
2490 2492 2494 2496 2519 2521 2536 2548 2550 2553 2560 2561 2565 
2566 2567 2569 2570 2572 2573 2575 2576 2578 2579 2581 2583 2586 
2587 2589 2591 2594 2595 2596 2601 2604 2606 2609 2610 2617 2618 
2631 2632 2634 2637 2638 2641 2643 2645 2647 2649 2650 2652 2654 
2656 2670 2672 2685 2686 2687 2689 2703 2704 2714 2716 2718 2720 
2721 2722 2724 2725 2727 2728 2730 2733 2735 2737 2756 2758 2770 
2775 2780 2782 2791 2793 2795 2811 2812 2814 2817 2818 2820 2822 
2825 2843 2844 2847 2871 2872 2874 2879 2880 2886 2888 2895 2896 
2898 2900 2902 2906 2910 qais 2915 2924 2926 2927 2929 2934 2936 

3174 
3240 
3272 


4669 4672 4673 4676 4682 4683 4687 4688 

$LSTIN= 000001 4a 822 824 826 829 831 833 835 870 871 873 875 876 
879 948 « 956 964 972 984 985 987 988 990 991 993 995 
996 998 1000 1002 1003 1005 1009 1010 1012 1014 1017 1021 1024 
1037 1054 1056 1058 1069 1072 1073 1077 1078 1081 1082 1084 1085 
1087 1088 1090 1092 1094 1096 1098 1099 1101 1105 1115 1119 1120 
1122 1123 1125 1126 1128 1132 1135 1136 1137 1138 1142 1149 1152 
1153 1158 1160 1162 1167 1170 1185 1186 1188 1189 1191 1192 1194 
1195 1197 1198 1203 1211 1214 1215 1216 1217 1222 1225 1226 1236 
1239 1240 1242 1250 1251 1253 1254 1256 1257 1259 1260 1262 1263 
1268 1276 1279 1280 1281 1282 1287 1290 1291 1301 1313 1319 1322 
1324 1326 1339 1342 1343 1345 1347 1350 1352 1365 1377 1378 1380 
1388 1389 1391 1393 1396 1404 1407 1416 1418 1426 1428 1429 1431 
1434 1437 1441 1443 1445 1446 1448 1453 1463 1464 1466 1467 1469 


PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 150 
CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0185 


1471 1473 1474 1495 1497 1500 1502 1504 1505 1507 1517 1533 1558 
1567 1586 1590 1592 1593 1605 1606 1608 1609 1611 1615 1616 1620 
1623 1625 1629 1631 1634 1635 1637 1639 1641 1646 1647 1649 1660 
1663 1664 1666 1668 1674 1675 1696 1702 1703 1716 1717 1719 1721 
1724 1725 1727 1728 1732 1734 1735 1737 1738 1750 1751 1757 1767 
1771 1773 1774 1786 1792 1794 1795 1796 1797 1812 1814 1815 1817 
1818 1820 1822 1825 1826 1828 1830 1832 1835 1844 1845 1847 1849 
1850 1851 1852 1854 1856 1857 1859 1861 1864 1865 1867 1868 1870 
1871 1873 1877 1880 1881 1883 1884 1886 1900 1915 1916 1918 1919 
1921 1922 1929 1930 1931 1932 1935 1936 1938 1940 1943 1947 1950 
1954 1957 1960 1961 1963 1964 1966 1967 1968 1969 1973 1974 1976 
1993 1994 1996 2019 2055 2056 2057 2058 2064 2065 2068 2069 2070 
2071 2075 2076 2078 2079 2081 2083 2086 2090 2134 2135 2137 2138 
2140 2141 2143 2149 2150 2151 2152 2161 2163 2165 2166 2168 2170 
2171 2175 2178 2192 2193 2202 2204 2205 2207 2209 2211 2213 2214 
2218 2221 2239 2240 2243 2244 2246 2248 2258 2262 2265 2272 2276 
2275 2277 2279 2282 2283 2287 2290 2324 2325 2333 2338 2340 2341 
2343 2344 2346 2354 2358 2361 2362 2364 2371 2385 2386 2388 2390 
2392 2393 2395 2397 2398 2399 2401 2403 2404 2406 2410 2411 2414 
2415 2417 2419 2421 2424 2425 2428 2429 2431 2433 2435 2438 2439 
2442 2443 2445 2447 2449 2452 2453 2455 2456 2457 2459 2460 02462 
2464 2466 2469 2471 2472 2474 2475 2476 2477 2519 2520 252 2524 
2526 2529 2531 2533 2545 2546 2548 2549 2551 2555 2558 2561 2562 
2567 2568 2570 2571 2573 2574 2576 2577 2579 2580 2585 2593 2596 
2597 2598 2599 2609 2613 2615 2617 2628 2629 2632 2633 2635 2637 
2641 2642 2647 2648 2650 2651 2667 2668 2670 2671 2684 2687 2688 
2702 2705 2706 2710 2712 2714 2715 2722 2723 2725 2726 2728 2729 
2750 2756 2757 2775 2776 2778 2780 2781 2807 2809 2812 2813 2815 
2817 2820 2821 2827 2841 2845 2847 2848 2850 2862 2864 2865 2867 
2869 2872 2873 2875 2877 2879 2882 2886 2887 2894 2900 2901 2903 





PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 151 


CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0186 
4671 4674 4678 4680 4682 4687 4707 4708 4709 4711 4713 4715 4717 
4732 4734 4736 4738 4739 474) 4743 

SLSTST= 177777 ah 875 877 888 984 986 990 992 1002 1004 1007 1014 1015 
1016 1019 1021 1022 1023 1026 1071 1072 1074 1076 1077 1079 1081 
1083 1084 1086 1087 1089 1098 1100 1103 1107 1109 1111 1118 1119 
1121 1122 1124 1125 1127 1130 1132 1133 1134 1135 1140 1144 1146 
1149 1150 1152 1154 1156 1162 1163 1167 1168 1184 1185 1187 1188 
1190 1191 1193 1194 1196 1197 1199 1201 1203 1204 1205 1207 1209 
1211 1212 1213 1214 1219 1222 1223 1224 1225 1227 1229 1231 1233 
1236 1237 1239 1241 1246 1249 1250 1252 1253 1255 1256 1258 1259 
1261 1262 1264 1266 1268 1269 1270 1272 1274 1276 1277 1278 1279 
1284 1287 1288 1289 1290 1292 1294 1296 1298 1301 1302 1341 1342 
1344 1347 1348 1377 1379 1382 1388 1390 1393 1394 1395 1398 1428 
1430 1434 1435 1436 1439 1445 1447 1450 1504 1506 1509 1588 1589 
1592 1594 1603 1605 1608 1610 1614 1615 1617 1620 1621 1627 1633 
1634 1636 1641 1642 1646 1648 1658 1663 1665 1670 1674 1676 
1698 1699 1702 1704 1714 1716 1718 1721 1722 1723 1730 1734 
1748 1750 1769 1770 1773 1788 1789 1794 1824 1825 1827 1832 
1844 1846 1849 1853 1856 1858 1861 1862 1863 1864 1866 1867 
1870 1872 1875 1877 1878 1879 1880 1882 1883 1885 1888 1890 
1894 1896 1898 1902 1915 1917 1918 1920 1921 1923 1925 1927 
1934 1935 1937 1940 1941 1942 1945 1947 1948 1949 1952 1957 
1959 1960 1962 1963 1965 1966 1971 1973 1975 1983 1985 1987 
1991 1993 1995 1998 2055 2059 2062 2064 2066 2068 2073 2075 
2078 2080 2083 2084 2085 2088 2097 2099 2101 2134 2136 2140 
2145 2147 2149 2153 2159 2165 2167 2175 2176 2177 2180 2192 
2200 2204 2206 2218 2219 2220 2223 2239 2241 2243 2245 2250 
2259 2260 2262 2264 2270 2274 2276 2287 2288 2289 2292 2294 
2326 2336 2340 2342 2343 2345 2356 2358 2359 2360 2361 2363 
2375 2385 2387 2392 2394 2403 2405 2408 2413 2414 2416 2421 





PARAMETER COD] 
CZTSHB.P11 


$SLSTTA= 000001 


SMCALL= 000000 
SNESTL= 177777 


$nsx0 = 000120 


NG MACY11 30(1046) 
24-AUG-79 09:08 
4645 4649 
4676 4682 
4a 88 
1118 1130 
1207 1209 
1272 1274 
1398 1435 
1670 1684 
1875 1878 
1945 1948 
2084 2088 
2250 2259 
2422 2427 
2553 2560 
2631 2638 
2791 2793 
2934 2936 
3256 3259 
3366 3368 
3453 3475 
3802 3806 
4563 4607 
4683 4688 
2a 4 
4a 8754 
10814 10844 
11358 811448 
12018 1203 
12468 12498 
12904 12968 
1434 14398 
16278 «16338 
1721 17308 
18568 1861 
18964 18984 
1952@ 1957 
20558 20624 
21458 21478 
22438 22508 
23568 2358 
24418 26498 
25198 25368 
25918 2593 
26544 26568 
27358 27378 
28438 28478 
29348 29368 
51848 3195¢ 
32658 32678 
3353@ 33598 
34398 34418 
35664 35798 
39478 4005¢ 
45634 46078 
4657# 46658 
8758 888 


F 15 
24-AUG-79 09:10 PAGE 152 


CROSS REFERENCE TABLE -- USER SYMBOLS 


Ro 
SOOO f£rvnv—o 
OVID OWN WO 

MOD ONVYUN 


9848 


2099 


4657 


10718 


4659 


—ONUIS Ww OONONMN— 
NN CO OWWO OS — OW 
NmM—Of OPM OnN@DOf Ow 


103 


46408 
12398 


12498 


SEQ 0187 
4673 


6 15 
PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 153 
CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0188 


13418 1347 13774 = §=©1382 1388# 1393 1398 14284 1434 1439 1445# 1450 15044 
1509 15884 1605 16084 1627 16338 1641 16464 1658 16634 1670 16748 1684 
16984 1750 17698 8177 17884 1794 18248 183 18444 1902 19154 1957 1991 
19934 1998 20554 2062 2064" 2101 21348 82147 21498 2159 21654 2175 2180 
2192# 2200 22044 2218 2223 22398 2258 2294 23244 2336 23404 2358 2375 
23854 2496 25194 2536 25484 2553 25604 2617 26314 2637 26414 2645 26478 
2656 26704 26 2795 28118 2817 28208 2825 28434 2847 28718 2879 28864 
2894 2898 29004 2906 29108 2915 29248 2936 2976" 3000 30248 3096 31368 
1 31578 317 3177# 3184 31954 201 3207# 3214 32334 3267 32728 =§=3321 
33258 3347 33534 3453 3455#@ 3477 3520# 3599 36464 3657 37804 3805 39428 
3947 40054 4011 4227# = §=4233 42468 4266 44320 4447 45634 4687 
$NSK1 = 000120 9908 1014 1019 1076# 1162 11884 =§=1211 1233 12534 1276 1298 15928 1603 
16144 1620 1702# 81714 1716# = =1721 1730 17348 1748 18494 1898 1918# 1927 
19294 1947 1 19608 1989 20684 2099 21404 2145 2243# 2250 22624 2270 
22748 2287 2292 23438 2356 23614 2373 23928 2494 25664 2609 26504 2654 
26878 2702 2793 29278 2934 3163# 3171 32394 3265 32834 3316 33594 3450 
34648 3475 35384 3557 3596 3791# 3802 42488 4258 44348 4439 4607# 4682 
$NSK2 = 000110 10024 1007 10818 1111 1118# 81149 1152# §=1156 11914 1209 1214# 1222 1231 
12564 1274 12794 =§=61287 1296 1856# 1861 1896 19214 1925 19354 1940 1945 
19634 1987 2075# 2097 03# 2408 24138 2421 2427# = =—2435 24418 2449 24528 


$NSK3$ = 000110 10844 1109 11224 =61132 146 11948 1203 1207 12254 1229 1259# 1268 1272 
12908 1294 18644 1894 1966# 1985 20784 2083 2088 24598 2466 2490 25738 
2591 25964 2604 2722# 82737 27568 770 32478 3251 3256 33024 3307 3312 
33648 3436 35664 3579 4627# 4637 4651 46654 4669 

$nK4 = 000110 10874 1107 11254 1130 11358 81144 11974 §=1201 12624 1266 18678 1877 1892 
19734 1983 24718 2488 2576# 2585 2589 27254 2735 3383# 3402 3412 34148 
3433 46304 4635 46408 4649 

$NSK5 = 000110 4s Has 18704 1875 18804 1890 24748 24686 8 2579H 2583 27284 §=627335 33868 

$NSK6 = 000110 18834 1888 

SSAVLE= 177777 4# 1169 115C# 1162 11634 11678 11684 12364 1237 13018 1302 13474 13488 
1620 16214 16414 16428 1832 18338 24218 2422# 26358 24368 24498 24508 26098 
26104 26174 26184 2637 26384 28178 28184 28798 28808 3096 30978 31718 31728 
33218 33228 33674 33718 34178 34218 34508 34518 35998 36008 3657 36588  3805# 
re 4 nee 39484 40118 4012# 42588 42598 44398 44408 46548 46554 46828 46858 
4687# 4 

$SSKO = 050367 1149# 1150 11624 §1163 1167# 1168 12364 1237 13018 1302 13478 =1348 16208 
1621 16414 1642 1832" = 1 24218 2422 24354 2436 24498 2450 26098 2610 
2617# 2618 26374 2638 2817# 2818 28798 3096# 3097 31718 3172 33218 

33678 5 3417# 3421 34508 3451 3599# 3600 36578 3658 3805# 3806 

oon 3948 4011# 4012 4258# 4259 44398 4440 46548 4655 460828 4683 46878 
46 

STAGLE= 177777 48 8774 8884 9868 9928 1004 1007# 1015# 1016# 1019 1022# 10234 10268 
10724 1074# 10774 10798 10834 10864 10898 1100 11038 1107# 1109 11118 11198 
1121#@ 81126# 11278 8 1130@ 113538 11348 11460 1146468 11668 114698 11548 11564 8 11628 
11674 11854 11878 11908 11938 1196 1199% 1201# 1204 1205# 1207# 1209# 12128 
1213#@ 12198 1223# 1226# 1227# 1229# 12318 12334 1236# 124618 1246 12508 12528 
1255#@ 12584 12618 1264# 1266 12694 1270 1272 1274# 1277# 12788 12848 12888 
12898 12928 12948 1296 1298 13018 1342# 13448 1347# 13798 1382@ 13908 15948 
1395¢@ 613984 «146308 146358 1436 14398 14478 14504 15064 15098 15898 15948 16038 
1605# 1610# 16158 1617# 1620# 16278 16348 16364 16414 16484 16584 16658 16708 
1676# 16848 16998 1706# 17148 1718# 1722# 17238 17308 1736# 174688 17508 17708 
1773@ =61789# «17968 18258 18278 1832# 18468 18538 18588 18628 18638 18668 18698 


PARAMETER CODING MACY11 30(1046) elone ae -79 09:10 PAGE 154 
CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0189 


STAGNU= 050405 4a 876 8778 985 9868 991 9928 1003 10044 1014 1016# 1021 10234 
1071 10724 1073 10748 1076 1077# =§=1078 10794 1082 10834 1085 10864 1088 
10894 1099 11004 1118 1119# =1120 11218 = =61123 11244 1126 11274 = =61132 11348 
1136 1138 1139 1140# 1153 1154#@ 1184 11854 1186 11874 1189 1190# 1192 
11934 1195 11964 1198 1199# 1203 12054 = §=1211 12134 #1215 1217 1218 12198 
1222 1224# 1226 1227# = §=1240 1241# 1249 12504 1251 12524 1254 12554 1257 
12584 1260 12614 1263 12644 1268 1270# 1276 12784 § 1280 1282 1283 12848 
1287 12894 § 1291 12928 =1341 13428 1343 13444 1378 13798 =©1389 1390# 1393 
1395# 1429 14304 1434 1436# 1446 14478 1505 15064 1588 1589# 1593 15948 
1609 16104 1614 1615# 1616 1617# 1633 16344 1635 1636# 1647 16488 1664 
16654 1675 16764 1698 1699# 1703 1704# 1717 17184 =§=1721 17238 81735 17368 
1769 1770# 8 §1788 1789# =§=1795 1798 1799# = 1824 18254 1826 18278 1845 18468 
1850 1852 18534 1857 1858# 1861 18634 1865 18664 1868 18694 1871 18728 
1877 18798 = §1881 18824 1884 1885# 1916 1917# = 1919 19208 1922 19238 1930 
1932 1933 19348 1936 1937# 1940 eg 1947 19498 7 19598 1961 19628 
1964 19654 1967 1969 1970 1971# 1974 19758 1994 1995# 2056 2058 20598 
2065 20664 2069 2071 2072 2073# 2076 20774 2079 20804 2083 2085# 2135 
21364 2141 21428 2150 2152 21534 2166 21678 2175 21778 2193 21948 2205 
22064 2218 22204 2240 22418 2244 22458 2258 22608 2263 22648 227 22768 
2287 2289" 2325 23268 2341 23428 2344 23454 2358 23604 2362 23634 2386 
23878 93 23948 2404 24058 2413 24148 2415 24168 4 24284 2429 24308 
2441 24424 = 2443 24448 2453 24548 2460 24614 2466 24684 2472 24738 = §=2475 
2477 24784 2520 25218 2549 2550# 2560 2561# 2562 25634 2566 25678 2568 
25694 2571 25728 8257 25758 2577 2578# 2580 25818 2585 2587# 2593 25958 

2599 2600 26018 2631 2632# 263 26348 2642 26438 2648 26498 2651 
26524 2671 26728 26868 2688 26898 2702 2704# 8 2715 27168 720 2728 

27244 2726 27278 =§=272 27308 2757 27588 2781 2782¢ 2811 28128 2813 
28148 2821 28228 2843 28448 2871 28728 2875 28748 2887 28888 2894 28968 
2901 29028 2911 29128 2925 29268 292 29298 977 2978" 3024 3025# 3026 
3027# 831357 3138#@ 3158 31598 3163 316048 3165 31668 3178 31798 3195 31968 


PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 155 


CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0190 

3207 32084 3234 32354 3239 32408 3242 32438 3247 32484 3251 

32608 3272 32738 3274 32758 3283 32848 3300 3301# 3303 33048 
3326 33278 3354 3356 33578 3 33608 3361 53628 33634 3365 

7 33718 4 3385¢ 3387 33884# 833928 3402 34048 3415 34168 

34218 3442 34458 56 34578 ( 3466# 3520 35218 3522 35234 
35598 35658 35688 3581 35834 3646 3647# 3648 

37818 37838 3793# 3942 39438 394 39458 4 40064 
4 42298 4246 42478 4248 42498 4250 4251# 4432 44338 4434 

44378 456 45648 4565 4566# 4607 46084 46 46104 4614 46154 


STEMP = 000402 8228 8234 8248 8254 8268 8278 8298 8308 8318 8320 8334 


965a 9728 9734 9878 9898 9938 9948 9954 9978 9988 9998 
10054 10064 10074 10098 10118 1012 10134 10144 10154 1017# 10188 
10224 10246# 1025# 1026 10378 1038# 10548 10554 10564 1057# 10588 
1070# 1090 10914 10924 10938 1094# 10954 1096 1097# 11014 11028 
1106 = 861107# 11098 1111# 1115@ 1116@ 1128 11298 11308 1132 11338 
11444 1166 1149# 11508 1156@ 11584 11598 1160 11618 1162 11638 
1170@ 81171 12014 1203# 1204@ 12074 1209 12118 12124 1222 12238 
1233@ 1236 1237 12462# 12438 124668 12668 12684 12698 1272 12748 
12874 12884 12968 1296# 1298 13018 1302# 1313 1314# 13198 13208 
1324@ 13258 1326# 13278 13398 13408 13458 1346 13478 13488 13508 
1353#@ 1365 13664 13808 13818 13828 13918 13928 13938 13948 13968 
1404@ 14054 14074 14084 14168 14178 14184 14198 1426 14278 14318 
1435@ 14378 146388 14398 146418 144628 14438 1446468 1464688 14498 14508 
1463# 14654 146664 14688 14698 14708 14718 14728 1473 14754 14958 
14984 35004 1501 1502# 1503# 1507# 1508 1509 1517# 1518# 15330 
1559# 15674 15684 1586 1587# 15908 15918 16034 16054 1606 16118 
1621# 16234 16248 16258 1626 16278 16298 16308 16318 16324 16378 

{ 16404 16414 16424 16498 1650 16584 1660 16614 16664 1667# 16688 
16844 1696 1697 1714# 17198 1720# 17218 1722# 17268 1726# 17278 
1732@ «617338 = «617378 = =691739% «6174688 = =1750# = =1751 17574 =6©17584 17678 §817688 
17734 = =61774 17864 17878 1792# 17938 17968 1797 18128 18138 18148 
1819# 1820 18214 1822 18234 18284 18298 1830# 18314 18328 18338 
1847# 184684 18548 1855# 18598 18608 18618 18624 18738 18748 1875# 
18864 18874 18884 18908 1892 18948 1896# 18984 1900# 19014  1902¢ 
19384 1939 19408 194618 194638 19448 19458 19478 19468 19508 19518 
1955@ 1957# 1958# 1976# 1977# 19834 19858 1987# 1989 19918 19968 
20198 2020# 2062# 20814 20828 20838 20848 20864 2087# 20888 20908 
2099# 21018 21378 21398 214638 21448 2145# 21478 21598 21618 21628 
21684 2169% 21758 2176 21788 21798 21808  2200# 2202  2203# 22078 
2210# 22118 2212 2218 22198 22218 2222 22238 22468 2267# 22488 
22584 22598 2270# 2272# 22738 2277# 22788 22798 2280# 22878 22888 
22924 822948 «= 23.36 = 2338H# = 23398 = 23468 «347 = 2356H = 358M 559K = 64a 
23758 23884 23898 23908 23918 23958 2396# 23978 23998 26008 24018 
24074 246084 24108 2412 26178 24188 246198 24208 24218 24228 24248 
24324 «26338 = 24348 = 24358 = 436# = 438H 440H 445A hbbH 4G 7H 448M 
26558 26578 26588 26628 24638 24648 24658 246664 246678 26698 24708 
24908 24928 24968 2496# 25228 25238 25248 25258 2526 25278 25298 
25328 25338 253468 25368 25458 2567# 25518 2552 2553# 25554 25568 
25834 25858 25868 25898 25918 25938 25948 26048 26068 26098 26108 
2615#@ 2616#  2617# 26184 26284 26308 26358  2636# 26378 26388 26458 
26674 26698 26848 26858 2702 2703# 2705# 2707# 2710# 27118 27128 
27338 «627358 = =«6—2737H# = 750# = 7518 = h770# = 75a 76 27788 827798 = =79le 
28074 28084 28098 2810# 28158 2816#  2817# 28184 28258 28278 28288 





PARAMETER CODING MACY11 3041046) 24-AUG-79 09:10 PAGE 156 
CZISHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0191 


28454 28468 28478 2848 oe 28514 28624 28634 28644 28664 28674 28688 28698 


$TSKO = 050366 8778 888 9864 1022 10234 1026 10724 8 1167 1185#@ 1236 1241# 1246 12508 
1301 1342#@ 8 1347 1379#@ =§=©1382 1390# 1394 1395# 1398 14308 1435 1436# 1439 
14478 1450 15064 1509 1589# 1605 1610# 1627 16348 1641 16484 1658 16654 
1670 1676# 1684 16994 17 1770# = =1773 1789# 1794 18254 1832 18468 19 
1917#@ 1958 1959# 1991 1995# 1998 20594 062 20664 2101 21368 2147 21538 
2159 21678 2176 21778 2 21948 00 22064 22208 2223 22418 2259 
22608 2294 23264 2336 23428 2359 23608 375 23878 2496 25218 2536 25508 

25618 2617 263 2 26438 5 26498 26728 2685 26868 

28128 2817 28228 2825 28448 847 28728 879 28884 2895 28968 2898 29028 
9 29124 2915 29268 2936 29788 0 3025a 6 31388 3154 31598 3174 
31798 3184 31968 32084 3214 3235¢@ 3267 32738 3321 33278 83347 33578 
4 34574 3477 35218 3599 36478 36 37818 3805 39438 3947 40068 4011 
42298 4233 42478 4266 44338 4447 4564# 4687 

$1SK1 = 050567 9928 1015 10164 1019 1074# 1167 11878 1236 1252#@ 81301 13448 1347 15948 
1603 1615# 1620 1636# 1641 1704#@ 81714 17184 = 1722 17238 §=©1730 1736# 8 §=1748 
18278 =18 18538 1898 1920# 1927 1934#@ 194 1949# 1952 19628 1989 20738 





PARAMETER CODING MACY11 30(1046) chest a0 -79 09:10 PAGE 157 


CZ1SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0192 
099 2142 2145 22458 2250 22648 2270 22764 2288 22898 2292 23458 2356 
23634 2373 23948 2494 25634 2617 26348 2637 26528 2654 26894 2703 27048 
793 28148 281 28748 29298 34 3027# 3096 31648 171 32408 6 
3275#@ 3321 33604 450 34668 & 35234 3599 36498 365 37838 05 39458 
% 4008# 4011 42498 4 44358 4439 45664 4687 
$1SK2 = 050370 10044 1007 10778 162 11908@ 1212 1213#@ 1233 1255#@ 1277 12784 1298 16178 
1620 18584 2 18634 81 1923#@ 1925 1937# = 1941 19428 1945 1965#@ 1987 
20778 2097 24054 2408 24148 2421 24288 & 24428 2449 24548 4 25678 
2609 2716# 2718 27218 2775 27828 8627 31664 3171 32438 259 32608 6 
ery eo : res 3450 35408 355 3559# 3596 3793# 3802 42514 4258 44378 
$1SK3 = 050371 1079# 1162 11934 1209 1219# 1223 1224# 1231 12584 1274 12848 1288 12898 
1296 18664 1894 19718 1985 2080# 2084 20854 8 24168 4 24308 2435 
24448 4 24614 2467 24684 2490 25698 2609 27248 737 27588 32488 
32538 6 33018 14 33664 3368 33718 3437 34438 3446 3565¢ 2 
35834 3594 46108 4682 
$TSK4 = 050404 10834 1111 11194 =1149 11544 81156 1196# 1204 12054 1207 12278 =§=©1229 12618 
1269 1270# 1272 12924 § 1294 18698 1878 18798 1892 19754 1983 24738 2488 
25728 4 25954 2606 27278 33048 3308 3309" 3312 33718 3436 35684 
3579 4615# 4617 46248 4654 4659# 4672 46738 4676 
$TSKS = 050405 10864 1109 11214 = =1149 1199# 1201 12648 1266 18724 §=1875 18828 1890 24788 
2486 25754 2591 26018 2604 27308 2733 3385# 3403 34048 3412 34168 3418 
34218 = 3434, 46268 4654 4667# 4669 
$TSK6 = 050377 10894 1107 1124# 1133 11348 1146 18854 1888 25784 2586 25878 2589 33888 
3391 33924 3400 34218 3433 46298 4638 46398 4651 
$TSK7 = 050401 11004 1103 11274 = §=©1130 11408 1144 25818 2583 4632 4635 464548 4649 
SSARGC= 000000 of 
$$BYTE= 000403 4a 8754 9844 990# 1002 1072 1077# 10814 10844 10874 1098 11198 11228 
11258 1135@ 11378 11528 1185# 11884 11918 11964 11978 12148 1216# 12258 12398 
1250 12534 1256# 1259# 1262# 12798 12814 12908 13424 1377# 13884 14288 14458 
15044 15924 16084 16158 16348 16468 16634 16744 1702# 1716# 17348 18258 18448 
18494 18518 18564 18648 1867# 18708 1880# 18834 19158 1918# 19218 19298 19318 
1935@ 19604 19634 1966 1968 1973# 1993# 2055# 2057#  2064# 20684 20708 20758 
20784 «21348 = 21408 = 21498 = 21518 921658 = 21928 = 22048 = 22398 43H h2b6kH 274 3248 
23408 234638 23618 23858 23928 24038 24148 24288 24428 24528 24598 26718 24748 
24768 25198 254688 25618 2567# 25708 25738 2576# 2579# 2596# 2598# 26328 26418 
26478 26508 26708 26878 27148 27228 2725# 27284 2756# 2780 28128 28208 28728 
28864 29004 29108 29248 29278 2976 3025# 3136# 31578 31648 31778 323538 352618 
32734 §©©3299# 33028 33258 33538 33558 33608 33834 33868 344618 34558 34648 35218 
35384 35634 35664 36478 37818 37918 39438 40064 4227 42498 4435 4564# 46088 
46134 466248 46278 46308 46408 46428 46578 46654 
$S$CASE= 000000 4a 
$$DST = 000000 4a 
$SELOC= 000402 ae 8754 8884 9848 990# 1002# 10074 1014 10198 = 1021 1026# 10 
10874 10984 1103@ 11078 1109 1111 1122 1125# 11308 1132 1135#@ = «611 
1152@ 861156# 11884 11918 11948 11978 12018 1203 12074 1209# 1211 12 
1225@ 1229# 12318 1233@ 12398 1246# 1253@ 1256# 12598 1262# 1266 12 
12744 1276 12794 =§=©1287 1290# 12948 1296 12984 1377# 13828 13888 13 
14284 1434 16398 14458 14508 15048 15098 1592 16034 1608 1627# 16 
16634 1670 16748 16848 1702# 17148 1716# = 1721 17308 817348 17488 18 
18564 1861 18644 18678 18708 18758 1877 18804 18834 1888% 18908 18 
1896@ 1898# 19028 19158 1918 19218 1925# 1927# 19298 1935# 1940 19 
1952#@ 1957 1960# 19638 1966# 19738 19838 1985# 19878 19898 1991# 19 
2055# 2062#  2064# 20684 20758 2078# 2083 20884 20978 20998 21018 21 
21458 = 2147H = =21498 159#@ 21658 2175 21808 21928 22008 22048 2218 22 
22438 2250# 2258 2262#@ «22708 22748 2287 22928 22948 252468 23368 23 








PARAMETER COD] 
CZ1SHB.P11 


SSERFL= 000000 
$S$FLAG= 000001 


$$FROM= 000000 
$$L0C = 022422 


NG MACY11 30(1046) 


24-AUG-79 09:08 
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w 
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8 
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Oo 
Ww 
= 
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o 
= 


Sa 
w 
= 
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ow 

oo 

~“ 

4 
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CROSS REFERENCE TABLE -- USER SYMBOLS 


23618 
24884 


Ofrmonn——— 
o 
— 
= 


o 
oo 
= 
S 


oo 
NF FOWOL On 
NNW SOD 
RBBRBVBVBZV_VVS 


OofUnn—— 


te 8 st 
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Oo 
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7 


Woes 
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m 
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SEQ 0193 
24718 
2 





PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 159 
CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- USER SYMBOLS SEQ 0194 


11984 1199 1217# =§=1218 12268 122? 1240# 1241 12514 1252 12544@ 1255 12578 
1258 12604 1261 12638@ 1264 12828 ©1283 12914 1292 13438@ 1344 1378#@ =§=©1379 
13894 8 1390 14294 1430 14468 1447 1505# 1506 1593#@ 1594 16064 1607 16098 
1610 16164 1617 16354 1636 16478 1648 16644 1665 16754 1676 1703# 1704 
17174 = 1718 17358 81736 17518 = 1752 1774#@ = =1775 17978 =©1798 18264 1827 18454 
1846 18504 1851 1852@ 1853 1857#@ 1858 18654 1866 18684 1869 18718 1872 
188148 1882 18844 1885 1916# 1917 1919# 1920 19228 2 1932#@ 1933 19364 
1937 19614 1962 19648 1965 1969# 1970 19748 1975 19948 1995 20564 2057 
20584 2059 20654 2066 20718 2072 20764 2077 20798 21358 2136 21418 
2142 21508 51 21528 82153 2166 2167 21938 2194 22054 2206 22408 2241 
22448 2245 22634 2264 22758 2276 23258 2326 23418 & 23448 2345 23628 
363 23864 387 2393# 2394 24048 2405 24158 2416 24298 2430 24438 24h6 
24534 2454 24608 2461 24728 2 24758 2476 24778 25208 25498 
25628 3 25684 2569 2571# 2572 25748 75 25778 25808 2581 
25998 26338 26428 26484% 2649 26518 26718 2672 26888 
2689 27154 6 27238 4 2726# 2727 27298 27578 27768 8=2777 
27818 28134 2814 28218 2848# 2849 28734 2874 28878 8 29018 
29118 1 29258 9 2928# 2929 29778 30264 3027 31378 3138 
31584 31654 31788 3179 32028 203 32158 32348 32398 
& 32424 3243 32478 3248 32748 3275 32834 3284 33004 33038 3 
33268 33548 33568 57 33618 3362 33848 33878 34428 
3456# 3457 3465# 3466 35228 523 35398 3540 35644 3565 35678 3568 
36484 3649 37824 8=3783 3792# = 8§=3793 39448 945 40074 4008 42284 4229 42508 
& 42674. 4268 44368 4437 44488 4449 45654 4566 46094 4610 46148 4615 
46254 4626 46284 4629 4631# 4632 46438 4644 46584 4659 46664 4667 
S$LOCN= 000000 
SSREG = 177777 4a 
$S$RETU= 000000 aa 
S$SRTNI= 000000 4a 
SSRTN2= 000 4a 
$$SRC = 000000 4a 
$$TGSv= 0000 7] 
$$1GS1= 000000 4a 
$$TGS2= 000000 48 
$$10 = 000000 4a 
$$$TAG= 050000 48 
= 024254 6a 1378 5034 5128 5188 5254 5320 5418 542m 5438 5448 5558 5568 
5574 591 5928 5934 5948 595a 596M 597m 5988 5998 6004 6018 6028 
6034 6044 6054 606 6074 636 6434 44 648" 6498 6598 660 7028 
7768 7938 7948 845 876 877 927 985 986 991 992 1003 1004 
1073 1074 1078 1079 1082 1083 1085 1086 1088 1089 1099 1100 1120 
1121 1123 1124 1126 1127 1138 1139 1153 1154 1186 1187 1189 1190 
1192 1193 1195 1196 1198 1199 1217 1218 1226 1227 1240 1241 1251 
1252 1254 1255 1257 1258 1260 1261 1263 1264 1282 1283 1291 1292 
1343 1344 1378 1379 1389 1590 1429 1430 1446 1447 1505 1506 1593 
1594 1606 1607 1609 1610 1616 1617 1635 1636 1647 1648 1664 1665 
1675 1676 1703 1704 1710 1712 1717 1718 1735 1736 1751 1752 1774 
1775 1797 1798 1826 1827 1845 1846 1850 1851 1852 1853 1857 1858 
1865 1866 1868 1869 1871 1872 1881 1882 1884 1885 1916 1917 1919 
1920 1922 1923 1932 1933 1936 1937 1961 1962 1964 1965 1969 1970 
1974 1975 1994 1995 2056 2057 2058 2059 2065 2066 2071 2072 2076 
2077 2079 2080 2135 2136 2141 2142 2150 2151 2152 2153 2166 2167 
2193 2194 2205 2206 2240 2241 2244 2245 2265 2264 2275 2276 23 
2326 2341 2342 2344 2345 2562 2363 2386 2387 2393 2594 2404 2405 
2415 2416 2429 2430 2443 2444 2453 2454 2460 2461 2472 2473 2475 
2476 2477 2478 2520 2521 2549 2550 2562 2563 2568 2569 2571 257 
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2574 2577 2578 2580 2581 2599 2634 2642 2643 2$48 
2649 2652 2671 2672 2688 2689 2723 2724 2726 2727 
2729 2814 2821 2822 2848 
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CZ21SH8.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE <= MACRO NAMES SFG 0196 

ALLOCA en 

BCOMPL 2a 4a 

BEGIN 28 =. 3362 

BERROR 2a 4 

BGNAU 24 4@ 86711 

BGNAUT 2a 4p = 3515 

BGNCLN Pz] 4@ 3640 

BGNDU 2a 4e 3676 

BGNHRD 2a 4a 4772 

BGNHYW ra) 4a 146 

BGNINI Pa] 4a = 3132 

BGNRMOD 2a 4a 7 219 3009 3760 4761 

BGNFSG Pa] 4a 804 852 

BGNPRO ef 4a 3119 

BGNPTA Pz] 48 «5064 

BGNRPT 2a aa 3016 

BGNSEG 2a 4a 

BGNSET oa 4a 5063 

BGNSFT 2a 4a 4808 

BGNSRV 2a 4a 945 953 961 969 

BGNSUB 2a 4# 3770 3811 3825 3837 3849 3861 3873 3885 3897 3909 3921 3952 

BGNSW 2a 4a 164 

BGNTST 2a 44 3762 4212 4414 4480 4535 

BNCOMP 2a 4# =§=2980 3188 3220 i 

BNERRO 2a 4a 5 

BREAK PL] 4@ §=61699 1789 3342 3430 

BRESET 2a a 

CALL 2a 

CASE 2a 

CKLOOP ow 4a 

CLOCK 2a 4a 

CLOSE 2a 4a 

CLRVEC 2a 4H = 3534 3652 3684 

COMMEN 2a 4a 

DEALLO 2a 

DECLAR ra) 

DECR on 

DECRU 2a 

DEF AUL 2a 

DELAY PZ] 4f =61704 3143 3333 3373 3421 4591 

DESCRI oe 4a 127 

DEvTYP 2a 4a 134 

DISPAT 2a 4a 111 

DISPLA 2a 4a 

DOCLN PL] 44 2822 3344 3472 

DODU 2a 4@ = 2921 3554 

DORPT 28 4a 1243 2907 

ELSE 24 =1013 1020 1131 1202 1210 1221 1267 1275 1286 1392 1433 1720 1860 1876 
1939 1946 1956 2082 2174 2217 2257 2286 2357 2465 2584 2592 2683 2701 2893 
3250 3257 3306 3390 3401 3556 3580 4636 4670 

END 24 = 3354438 

ENDAU 2a 4a 3745 

ENDAUT 2a 4@ 3602 

ENDCLN 2a 48 §=6.3665 

ENDCOM 2a 4a 


ENDDEC 2a 
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ENDDO 28-1148 1161 1166 1235 1300 1346 1619 1640 1831 2420: 2434 2448 2608 2616 
2636 2816 2878 3095 3170 3320 3449 3598 3656 3804 3946 4010 4257 4438 4653 


4681 4686 

ENDDU 2a 4” =§=3700 

ENDHRD 2a 48 4794 

ENDHW ra) 4a 155 ‘ 

ENDIF oF 887 1006 1018 1025 1102 1106 1108 1110 1129 1143 1145 1155 1200 1206 
1208 1228 1230 1232 1245 1265 1271 1273 1293 1295 1297 1381 1397 1438 1449 
1508 1602 1626 1657 1669 1683 1713 1729 1747 1874 1887 1889 1891 1893 1895 
1897 1901 1924 1926 1944 1951 1982 1984 1986 1988 1990 1997 2061 2087 2096 
2098 2100 2144 2146 2158 2179 2199 2222 2249 2269 2291 229 2335 2355 2372 
2374 2407 2485 2487 2489 2491 2493 2495 2535 2552 2582 588 2590 2603 2605 
2644 2653 2655 2717 2732 2734 2736 2769 2790 2792 2794 2824 2897 2905 2914 
2933 2935 2999 3153 3173 3183 3255 3262 3264 3266 3311 3313 3315 3346 3399 
tts 3445 3452 3474 3476 3578 3593 3595 3801 4232 4616 4634 4648 4650 4668 

ENDINC 24 = 5432 3435 

ENDINI ra) 4# 3504 

ENDLOO 2a 

ENDMOD 2a 4a 214 3004 3749 4756 5056 

ENDMSG 2a 4a 848 933 

ENDPRO 2a 44 = 3124 

ENDPTA 2a 44 §=5073 

ENDRPT ce 4 3108 

ENDRIN 2a 

ENDSEG 2a 4a 

ENDSEL 2a 

ENDSET 2a 4# $075 

ENDSFT 2a 4# 5039 

ENDSRV 2a 4a 949 957 965 973 

ENDSUB 2a 4# 3807 3821 3833 3845 3857 3869 3881 3893 3905 3917 3934 3985 

ENDSW 2a 4a 211 

ENDTST 2a 44 4204 4404 4469 4526 4752 

EQUALS 2a 4a 226 

ERRDF 2a 4a 1595 1650 1677 1740 2039 2116 2251 2306 2326 2347 2888 

ERRHRD 2a 4a 1977 2020 2091 2365 2672 2689 2744 

ERROR oe 4a 

ERRSF 2a 448 3138 

ERRSOF 2a 4H = 2153 2194 2264 

ERRTBL 2a 4a 

ESCAPE 2a 4a 

EXIF 2a 

EXIFB 2a 

EXIT cant 4a 843 925 3100 3487 3660 3695 3739 3993 4295 4463 4520 4690 4788 

FEQUAL 2 4a 

GETBYT 2a 4a 

GETPRI 2a 4a 

GE TWOR 2a 4a 

GMANIA 2a 4a 

GMANID 2a 4a 

GMANIL 2a 4a 299 

GPHARD 2a 4# 3280 3720 

GPRMA 2a 4a 4776 ' 

GPRMD 2a 4#@ 8 4781 4847 4853 4859 - 4865 4871 4877 4883 4889 4895 4901 4907 4913 j 
4919 4925 1931 4937 4943 4953 4959 4965 4971 4977 4983 4989 4995 5001 5007 
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6 
CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0199 
MSBYTE 2a 4a 184 24 “25 26 
MSCHEC s0ske 4a 8448 9268 31014 34884 36618 36964 37408 39948 42968 44648 45218 46918 47898 
MSCNTO 2a GW 29958 47778 47828 48148 4818 48228 48268 48308 48348 48388 48448 48488 48548 


48608 48664 48728 48784 48848 48908  4896# 49028 49084 49148 49208 49268 49320 49388 49448 


MSCOUN 2a 4s 8074 8168 8378 8554 8644 8818 8908 8964 907" 9164 24798 26788 26958 
27598 27838 29498 29558 30284 30378 30478 30578 30678 30768 30854 33284 33938 34058 34678 


MSDATA ra] Ah 184 27 29 31 33 35 37 39 44 43 45 
51 53 55 57a 59 61 64 67 69 71 73 75 77 
83 85 87 89 91 93 95 97 99 101 1284 1354 

MSDECR ra] 4a 1564 2128 2154 8498 9348 9504 9584 9664 9748 30054 3109" 


MSDEFA ra | 48 29958 47778 47828 48148 48188 48228 48268 48308 48348 48388 48448 


MSENDE c# Ge 1564 2124 2154 8498 9348 9508 9588 9664 9748 3005# 31094 


MSERRI rs] 4# 1596# 16518 16784 17418 19788 20218 20408 2092 2117 2154 21958 
23074 23278 23488 23664 26734 26908 27458 2889 31398 , 

MSESCA ra] 4a 

MSESCS 2a 4a 

MSEXCP 2a 48 47778 47828 484688 468548 48604 4866 48728 48784 48844 48908 48968 
4914# 49208 49268 49328 469388 49448 49548 49608 49668 4972# 49788 49848 49908 
5008# 5014# 50204 

MSEXIT 2a af 8448 926# 31018 34888 3489 3661# 3662 36964 37408 39948 3995 
44648 4465 45218 4522 46914 4692 47898 50344 

MSEXSE oe 4a 8448 926 31018 34884 36618 36968 37408 3994 42968 44648 45218 

4a 

MSEXTJ 2a Aa 844" 845 9264 927 31018 3102 34884 36614 36964 3697 37408 
42968 46648 45218 46918 47898 50348 

MSGEN 2a 4a 184 274 298 318 334 35a 378 39" 4if 438 45a 


MSGENB 2a 4# 29928 2993 
MSGETS 2a ait 1568 2128 2158 8498 9348 9508 958" 9668 974" 3005# 31098 


50408 50578 

MSGETT 4 4a 8448 926# 31018 34888 36618 3696 37408 39948 4296 44648 45218 
48428 49508 49528 5027# 5034« , 

MSGNGB ra] 4a 8a 184 278 298 318 338 35a 378 39" 4is 438 


128 8637618 47628 47738 = 4774 4809# 4810 50528 
MSGNIN cf 4a 184 19 20 21 22 23 248 25a 268 eve 28 
3\s 32 33a bt 35a 36 378 38 398 40 4\a 42 43a 
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CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0200 
46 478 48 49a 50 514 52 534 54 554 56 578 58 598 60 
ol" 62 63 648 65 668 678 68 698 70 718 72 734 74 75# 
76 778 78 798 80 818 38 84 854 6 878 8 898 90 
91" 2 3a 954 96 978 98 998 10 1014 10 1128 1144 1154 
1168 1178 1188 1284 129 133 1358 136 137 1478 1654 8074 8084 8094 8104 


8448 8454 8504 8554 856" 8578 8588 8598 60 8614 6 8644 8654 866 8678 
868 8814 8824 8834 884 885« 886 8908 8918 9 8934 894 8964 8978 8984 
8998 9004 9014 9024 0 9048 905 9078 9084 9098 9104 9114 912 9138 914 

9168 9178 9184 9194 9204 9218 922 9238 924 9268 9278 935a 9504 951 9584 
959 9664 967 9748 9 12448 1596# 15978 15984 15998 16514 16528 16534 16548 16788 


26738 26748 26758 26768 26784 26798 2680 26818 2682 26904 26914 26928 26934 26954 26968 
26978 2698 26998 27458 = 27468 = 2747 = 748 = 2759 = 2.760 27618 2762 27638 27648 27658 
2766 2767# = §2768 27834 27848 27858 27868 787 27884 2789 28234 28898 28904 28918 28928 
29084 29228 29498 29504 2952# 2953 29558 29568 29578 29588 2959% 29604 2961 29628 
2963 29798 29818 29928 29938 29948 29958 996 2997 30284 30298 30308 30318 30328 3033 
30348 3037# 30384 30394 30408 30418 30428 3043 30444 3045 30474 30484 30498 30508 
3051# 30524 3053 30544 3055 3057# ‘30584 3059# 3060 30614 30624 3063 30644 3065 3067# 
30684 30698 30708 30714 30734 3074 30768 30778 30784 30798 30804 3081 30828 3083 
3085# 30864 30874 3088 30898 3090# 3091 3092" 3093 3101# 31024 31108 31398 31408 31418 
31424 831448 3145 3146 3147 3148 3149 3150 31864 31878 31898 32188 3219# 32218 
32284 32298 32364 32378 324648 32465 32818 32828 32928 32938 32948 32958  3296# 3297 33288 
33294 3330 33314 3332 33344 3335 3336 3337 3338 340 1 33438 3345# 33508 


35754 3576 35864 35874 35888 3590# 3591 36044 36534 36544 36614 36628 36674 36858 
360864 36884 36898 36904 3691 36924 36964 36974 3702# 37218 37228 37308 37318 37328 
37338 37348 37408 37418 37478 37728 37948 37958 37968 37978 3798 3799# 3800 38098 


5069 

MSGNLS 2a 4#@ 2992H 2998 

MSGNSU ra] 4@ 37718 38128 38268 38388 38508 38624 38748 38868  3898# 39108 39228 39538 

MSGNTA ra | 4a 1564 2124 849# 934# 9504 958" 9668 9748 31098 35058 36034 36668 357018 
3746 38084 3822 38344 38468 38584 38708 38828 38948 3900# 39184  3935# 3986 42058 44058 


PARAMETER CODING 


CZTSHB.P11 


MSGNTE 
MSHAPT 
MSHNAP 
MSINCR 


MSIOSE 
MSLDRO 
MSMASK 
MSMCHI 
MSMCLO 
MSMSK1 
MSPOP 


MSPRIN 


MSPUSH 


MSPUT 


MSPUT1 


MSRADI 


MSRBRO 
MSRNRO 
MSSETS 


MSSTAR 
M$SVC 


44708 
# 


45278 
a 


885 


807# 
890# 


MACY11 30(1046) 
24-AUG-79 09:08 


47958 
42138 


813 
893 


G 16 
24-AUG-79 09:10 PAGE 167 
CROSS REFERENCE TABLE -- MACRO NAMES 


4796 
44158 


8168 
896" 


50408 
44818 


819 
904 


5041 
45368 


8378 
9074 


50654 


5070 


50744 


849" 


923 


8504 8530 8614 8678 
15964 §=1051 1678 1700 
2307 23278 =—23488 23668 
29228 29 29628 29798 
3110@ 31208 31334 31398 
33978 34098 34318 34588 
36044 36418 36548 36618 
37648 37718 37728 37998 
38518 38598 38628 38634 
39118 39198 39228 39238 
44168 446648 44718 44818 
5065# 5069 5071 
35554 36534 36858 37218 

9748 30054 31098  3125# 
38708 38828 38948 3906" 
5057# 

907# 9168 24798 26788 
3085#@ 33284 33938  3405# 

962" 970# 30108 30178 
3812# 3813 38268 3827 
3899 3910# 3911 39228 
47628 47738 48098 

907# 9164 24798 26788 
3085# 32928 33288 33938 

838 839 855# 856 

897 898 899 900 

920 921 2479# 2480 
27834 2784 2785 2786 
3031 3032 3037# 3038 
3058 3059 3060 3061 
3085# 3086 3087 3088 
3405# 3406 3407 34678 
35864 3587 3588 36884 
48348 48388 48448 48488 
4920# 49264 49328 49388 
5014# 50208 

962m 9708 30108 3017" 
3839¢ 38518 38638 58758 
4809" 

850 8554 861 8648 

9268 9348 935 12448 


SEQ 


0201 
# a ] 
a 
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: 
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1651 1678 17008 = §=1741 1790# 1978 2021 2040 2092 2117 2154 2195 2252 2265 2307 
2327 348 2366 24798 = 2483 2673 26784 2681 2690 26954 2699 2745 27594 2767 27838 
2788 28234 889 29084 29228 29498 2952 29558 962 29798 2992 30288 3034 3037# 3044 
30478 4 3057# 3064 30674 3073 3076# 3082 30854 92 3101# 3109# 3110 3139 31868 
3187 32184 3219 32284 =635236# «63? 32448 3245 32818 32928 3296 33284 8=63331 53438 33458 
33508 1 33934 34054 3409 34318 34588 34678 3470 34738 34888 35054 3506 35268 

35354 3 35438 3547 3555@ 35718 3575 35868 36034 3604 36534 3654 36618 

36668 3667 36854 3686 36884 3692 36968 37018 37218 37308 3734 37408 37468 3747 
37718 3772 37948 3799 38084 3809 38128 381 38228 863 38264 3827 38348 38384 
3839 38468 3847 38504 3851 3858# 3859 38624 3863 38708 3871 38748 3875 38828 


MSTLAB 2a Si 8134 8194 8414 8508 8618 867# 8854 8934 9048 9138 9238 935#@ 12448 


MSTSTL on ae 8134 8198 8414 8508 8614 867# 8854 8934 904M 9138 9238 9358 12448 


MSWORD ea ae 57a 66 1124 114 115 116 117 118 844m 9268 1596# 1597 1598 
1599 16514 1652 1653 1654 1678# 1679 1680 1681 17414 1742 1743 1744 19784 1979 
1980 1981 2021# 2022 2023 2024 20408 2041 2042 2043 20924 2093 2094 2095 21178 
2118 2119 2120 2154 2155 2156 2157 21958 1 2197 2198 22528 2253 2254 2255 
22654 2266 2267 2268 23074 2308 2309 10 23278 2328 2329 234884 2349 2350 


MSXFER 2a 4# 47898 484628 49508 4952 S5027# 5034# 

OPEN on 4a 

POINTE ra | 4a 14 

POP oss 2169 2171 2172 2212 2214 2215 2281 2283 2284 2332 2334 2355 2355 2370 
PRINTB 2a aa 806 815 836 854 863 880 2478 2677 2694 2782 
PRINTF ra] 4# 3327 3392 3404 3466 3542 3570 3585 3687 3793 

PRINTS ra | 4# 3027 3036 3046 3056 3066 3075 3084 

PRINTX ra] os 889 895 906 915 2758 2948 2954 

PUSH ra] 

READBU en 4a 

RE ADEF ra] 4@ 3185 3217 3235 3243 

REPEAT 28 = «1587 1697 1768 1787 2719 2842 3194 3206 4245 4431 


RE TURN en 


} 
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CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0203 

PFLAGS 2a 44 3227 

ROUTIN 2a 

SAVR14 2a 

SELECT 2a 

SETPRI 2a 4a = 3349 

SETVEC Qn 44 =3291 3525 3729 

SLASH 2a 4a 

STARS rz] 4a 

STRUCT 2a 4a 

SvC 2a 4a 

ok oe 1604 1749 1772 1793 2774 2846 3200 3213 4265 4446 

L 

WHILE 28 = §=61070 1075 1117 1183 1248 1340 1613 1632 1823 2412 2426 2440 2559 2565 
2630 2810 2870 3023 3162 3271 3358 3519 3645 3779 3941 4004 4247 4433 4562 
4606 4622 

WHILEB 2a 

XFER Pe] 4a 8444 926" 31014 34888 36614 369684 374084 39944 42964 44648 45214 46918 47898 
4949 4951 5026 50344 

XFERF 2a 4a 4841 

XFERT 2a 4a 

SADDON 2a 875 877 984 986 990 992 1002 1004 1016 1023 1071 1072 
1077 1079 1081 1083 1084 1086 1087 - 1089 1098 1100 1118 1119 1121 
1125 1127 1134 1135 1140 1149 1152 1154 1162 1167 1184 1185 1187 
1191 1193 1194 1196 1197 1199 1205 1213 1214 1219 1224 1225 1227 
1241 1249 1250 1252 1253 1255 1256 1258 1259 1261 1262 1264 1270 
1284 1289 1290 1292 1301 1341 1342 1344 1347 1377 1379 1388 1390 
1430 1436 1445 1447 1504 1506 1588 1589 1592 1594 1608 1610 1614 
1620 1633 1634 1636 1641 1646 1648 1663 1665 1674 1676 1698 1699 
1716 1718 1723 1734 1736 1769 1770 1788 1789 1799 1824 1825 1827 
1846 1849 1853 1856 1858 1863 1864 1866 1867 1869 1870 1872 1879 
1883 1885 1915 1917 1918 1920 1921 1923 1929 1934 1935 1937 1942 
1960 1962 1963 1965 1966 1971 1973 1975 1993 1995 2055 2059 2064 
2073 2075 2077 2078 2080 2085 2134 2136 2140 2142 2149 2153 2165 
2192 2194 2204 2206 2220 2239 2241 2243 2245 2260 2262 2264 2274 
2324 2326 2340 2342 2343 2345 2360 2361 2363 2385 2387 2392 2394 
2413 2414 2416 2421 2427 2428 2430 2435 2441 2442 2444 2449 2452 
2461 2468 2471 2473 2474 2478 2519 2521 2548 2550 2560 2561 2563 
2569 2570 2572 2573 2575 2576 2578 2579 2581 2587 2595 2596 2601 
2631 2632 2634 2637 2641 2643 2647 2649 2650 2652 2670 2672 2686 
2704 2714 2716 2720 2721 2722 2724 2725 2727 2728 2730 2756 2758 
2811 2812 2814 2817 2820 2822 2843 2844 2871 2872 2874 2879 2886 
2900 2902 2910 2912 2924 2926 2927 2929 2976 2978 3024 3025 3027 
3138 3157 3159 3163 3164 3166 3171 3177 3179 3195 3196 3207 3208 
3239 3240 3241 3243 3247 3248 3253 3260 3272 3273 3275 3283 3284 
3302 3304 3309 3321 3325 3327 3353 3357 3359 3360 3362 3363 3364 
“ 3383 3385 3386 3388 3392 3404 3414 3416 3417 3421 344) 3443 


o 
SAND 28 = =1849 2055 2149 2474 3353 
SBRANC 2a 876 985 991 1003 1014 1021 1073 1078 1082 1085 1088 1099 
1126 1132 1136 1138 1149 1153 1162 1167 1186 1189 1192 1195 1198 
1215 1217 1222 1226 1236 1240 1251 1254 1257 1260 1265 1268 1276 
1287 1291 1301 1343 1347 1378 1389 1393 1429 1434 1446 1505 1593 
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1616 1620 1635 1641 1647 1664 1675 1703 1717 1721 1735 1751 1774 1795 1797 
1826 1832 1845 1850 1852 1857 1861 1865 1868 1871 1877 1881 1884 1916 1919 
1922 1930 1932 1936 1940 1947 1957 1961 1964 1967 1969 1974 1994 2056 2058 
2065 2069 2071 2076 2079 2083 2135 2141 2150 2152 2166 2175 2193 2205 2218 
2240 2244 2258 2263 2275 2287 2325 2341 2344 2358 2362 2386 2393 2404 2415 
2421 2429 2435 2443 2449 2453 2460 2466 2472 2475 2477 2520 2549 2562 2568 
2571 2574 2577 2580 2585 2593 2597 2599 2609 2617 2633 2637 2642 2648 2651 
2671 2684 2688 2702 2715 2723 2726 2729 2757 2776 2781 2813 2817 2821 2848 
2873 2879 2887 2894 2901 2911 2925 2928 2977 3026 3096 3137 3158 3165 3171 
3178 3202 3215 3234 3239 ge08 3247 3251 3258 3274 3283 3300 3303 3307 3321 
3557 


cos - 1135 1214 1279 1794 1929 1966 2068 2596 3369 3419 4640 

LL 

SCHECK en 875 984 990 1002 1072 1077 1081 1084 1087 1098 1119 1122 1125 1135 
1152 1185 1188 1191 1194 1197 1214 1225 1239 1250 1253 1256 1259 1262 1279 
1290 1342 1377 1388 1428 1445 1504 1592 1608 1615 1634 1646 1663 1674 1702 
1716 1734 1825 1844 1849 1856 1864 1867 1870 1880 1883 1915 1918 1921 1929 
1935 1960 1963 1966 1973 1993 2055 2064 2068 2075 2078 2134 2140 2149 2165 
2192 2204 2239 2243 2262 2274 2324 2340 2343 2361 2385 2392 2403 2414 2428 
2442 2452 2459 2471 2474 2519 2548 2561 2567 2570 2573 2576 2579 2596 2632 
2641 2647 2650 2670 2687 2714 2722 2725 2728 2756 2780 281 2820 2872 2886 
2900 2910 2924 2927 2976 3025 3136 3157 3164 3177 3233 3241 3273 3299 3302 
3325 3353 3360 3383 3386 3441 3455 3464 3521 3538 3563 3566 3647 3781 3791 
3943 4006 4227 4249 4435 4564 4608 4613 4624 4627 4630 4640 4657 4665 

$CKOP1 oa 822 824 826 829 831 833 835 879 998 1017 1024 1037 1054 1056 
1058 1069 1094 1101 1105 1115 1128 1142 1160 1170 1242 1313 1319 1322 1324 
1326 1339 1350 1365 1380 1391 1396 1404 1407 1416 1418 1426 1431 1437 1441 
1443 1453 1495 1500 1507 1586 1611 1623 1625 1629 1631 1637 1649 1660 1668 
1696 1719 1724 1757 1767 1771 1786 1812 1820 1822 1828 1835 1859 1900 1938 
1943 1950 1996 2211 2279 2390 2522 2524 2526 2529 2531 2533 2555 2558 2615 
2635 2710 2712 2807 2809 2827 2841 2850 2867 2869 2875 2882 2917 2930 2983 
2986 2988 2990 3021 3099 3161 3167 3180 3182 3193 3197 3231 3249 3270 3285 
3290 3310 3318 3364 3372 3414 3480 3482 3485 3524 3533 3550 3560 3651 366 5 
3719 3723 3728 3737 3766 3768 3775 3784 3816 3820 383 3842 3854 3866 3878 


$CKOP2 4] 870 873 948 956 964 972 987 993 995 1000 1005 1009 1012 1090 
1092 1096 1158 1345 1352 1448 1463 1466 1469 1471 1473 1497 1502 1517 1533 
1558 1567 1590 1639 1666 1727 1732 1737 1792 1814 1817 1830 1847 1854 1873 
1886 1954 1976 2019 2081 2086 2090 2137 2143 2161 2163 2168 2178 2202 2207 
2209 2221 2246 2248 2272 2277 2290 2338 2346 2364 2388 2395 2397 2399 2401 
2406 2410 2417 2419 2424 2431 2433 2438 2445 2447 2455 2457 2462 2464 2469 
2545 2551 2613 2628 2667 2705 2750 2778 2815 2845 2862 2864 2877 2903 2913 
2919 2932 2938 3169 3191 3199 3204 3209 3211 3223 3225 3254 3261 3276 3278 
3287 3305 3367 3417 3461 3541 3552 3569 3584 3628 3680 3716 3725 3786 3788 
3939 3950 4220 4252 4254 4269 4334 4336 4392 4394 4422 4450 4503 4569 4574 


$CKRO 2a 


K 16 
PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 171 z 


CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0205 

SCAND ea 875 984 990 1002 1072 1077 1081 1084 1087 1098 1119 1122 1125 1135 
1137 1152 1185 1188 1191 1194 1197 1214 1216 1225 1239 1250 1¢53 1256 1259 
1262 1279 1281 1290 1342 1377 1388 1428 1445 1504 1592 1608 1615 1634 1646 
1663 1674 1702 1716 1734 1825 1844 1849 1851 1856 1864 1867 1870 1880 1885 
1915 1918 “921 1929 1931 1935 1960 1963 1966 1968 1973 1993 2055 2057 2064 
2068 2070 2075 2078 2134 2140 2149 2151 2165 2192 2204 2239 2243 2262 2274 
2324 2340 2343 2361 2385 2392 2403 2414 2428 2442 2452 2459 2471 2474 2476 
2519 2548 2561 2567 2570 2573 2576 2579 2596 2598 2632 2641 2647 2650 2670 
2687 2714 2722 2725 2728 2756 2780 2812 2820 2872 2886 2900 2910 2924 2927 
2976 3025 3136 3157 3164 3177 3233 3241 3273 3299 3302 3325 3353 3355 3360 
3383 3386 3441 3455 3464 3521 3538 3563 3566 3647 3781 3791 3943 4006 4227 
4249 4435 4564 4608 461 4624 4627 4630 4640 4642 4657 4665 

SCOMPA ra] 875 984 90 1002 1072 1077 1081 1084 1087 1098 1119 1122 1125 1135 
1152 1185 1188 1191 1194 1197 1214 1225 1239 1250 1253 1256 1259 1262 1279 
1290 1342 1377 1388 1428 1445 1504 1592 1608 1615 1634 1646 1663 1674 1702 
1716 1734 1825 1844 1849 1856 1864 1867 1870 1880 1883 1915 1918 1921 1929 
1935 1960 1963 1966 1973 1993 2055 2064 2068 2075 2078 2134 2140 2149 2165 
2192 2204 2239 2243 2262 2274 2324 2340 2343 236i 2385 2392 2403 2414 2428 
2442 2452 2459 2471 2474 2519 2548 2561 2567 2570 2573 2576 2579 2596 2632 
2641 2647 2650 2670 2687 2714 2722 2725 2728 2756 2780 2812 2820 2872 2886 
2900 2910 2924 2927 2976 3025 3136 3157 3164 3177 3233 3239 3241 3247 3273 
3283 3299 3302 3325 3353 3360 3364 3383 3386 3414 3441 3455 3464 3521 3538 
3563 3566 3647 3781 3791 3943 4006 4227 4249 4435 4564 4608 4613 4624 4627 


SCOUNT ra] 

$00 24 = =61072 1077 1119 1185 1250 1342 1615 1634 1825 2414 2428 2442 2561 2567 
2632 2812 2872 3025 3164 3273 3366 3521 3647 3781 3943 4006 4249 4435 4564 
4608 4624 

SELSE ea 

SERRMS 28 

SEXIFA ra] 

SEXIFO 2a 

SEXIF2 ra | 

SEXIFS 2a 

$GENBR 2a 876 985 991 1003 1014 1021 1073 1078 1082 1085 1088 
1126 1132 1136 1138 1149 1153 1162 1167 1186 1189 1192 1195 
1215 1217 1222 1226 1236 1240 1251 1254 1257 1260 1263 1268 
1287 1291 1301 1343 1347 1378 1389 1393 1429 1434 1446 1505 
1616 1620 1635 1641 1647 1664 1675 1703 1717 1721 1735 1751 
1826 1832 1845 1850 1852 1857 1861 1865 1868 1871 1877 1881 
1922 193 1932 1936 1940 1947 1957 1961 1964 1967 1969 1974 
2065 2069 2071 2076 2079 2083 2135 2141 2150 2152 2166 2175 
2240 2244 2258 2263 2275 2287 2325 2341 2344 2358 2362 2386 
2421 2429 2435 2445 2449 2453 2460 2466 2472 2475 2477 2520 
2571 2574 2577 2580 2585 2593 2597 2599 2609 2617 2633 2637 
2671 26 2688 2702 2715 2725 2726 2729 2757 2776 2781 2813 
2873 2879 2887 2894 2901 2911 2925 2928 2977 3026 3096 3137 
3176 3202 3215 3234 3239 3242 3247 3251 3258 3274 3283 3300 
3326 3354 3356 3361 3365 3370 3384 3387 3389 3402 3415 3420 
3450 3456 3465 3522 3539 3557 564 3567 3581 3599 3648 3657 
3944 3947 4007 4011 4228 4250 425 4267 4436 4439 4448 4565 
4628 4631 4637 4641 4643 4654 4658 4666 4671 4682 4687 

SGENTA 2a 885 1007 1015 1019 1022 1026 1071 1076 1103 1107 1109 
1153 1139 1144 1146 1150 1156 1163 1168 1184 1201 1204 1207 
1225 1229 1231 1233 1237 1246 1249 1266 1269 1272 1274 1277 
1296 1298 1302 1341 1348 1382 1394 1398 1435 1439 1450 1509 





L 16 
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CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES | SEQ 0206 
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PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 173 


CZTSHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0207 


SLPCNT 24 3364 3414 
SOPABS rs | 
SOPADD 2a 948 956 964 972 988 993 1090 1092 1158 1345 1467 1474 1502 1639 


SOPAND ra] 

SOPCD1 2a 998 1724 3249 4223 4239 4277 4425 

SOPCD2 2a 871 873 948 956 964 972 988 993 996 1000 1005 1010 1012 1090 
1092 1096 1158 1345 1352 1448 1464 1467 1469 1471 1474 1497 1502 1517 1533 
1558 1567 1590 1639 1666 1728 1732 1738 1792 1815 1818 1830 184? 1854 1873 
8 1954 1976 2019 2081 2086 2090 2138 2143 2161 2163 2168 2178 2202 2207 
2209 2221 2246 2248 2272 2277 2290 2338 2346 2364 2388 2395 2398 2399 2401 


3940 5950 & 4252 4255 4269 4334 435/ 4392 4395 4423 4450 4503 4569 4574 
4577 4583 4588 4603 4661 4663 4678 4708 4709 4739 
SOPCOM 24 (1726 3249 4223 4239 4277 4425 
SOPDEF on 822 824 826 829 831 833 835 870 871 8 875 876 879 948 
956 964 972 984 985 987 988 990 991 993 995 996 998 1000 1002 
1003 1005 1009 1010 1012 1014 1017 1021 1024 1037 1054 1056 1058 1069 1072 
1073 1077 1078 1081 1082 1084 1085 1087 1088 1090 1092 1094 1096 1098 1099 
1101 1105 1115 1119 1120 1122 1123 1125 1126 1128 1132 1135 1136 1137 1138 
1142 1149 1152 1153 1158 1160 1162 1167 1170 1185 1186 1188 1189 1191 1192 
1194 1195 1197 1198 1203 1211 1214 1215 1216 1217 1222 1225 1226 1236 1239 
1240 1242 1250 1251 1253 1254 1256 1257 1259 1260 1262 1263 1268 1276 1279 
1280 1281 1282 1287 1290 1291 1301 1313 1319 1322 1324 1326 1339 1342 1343 
1345 1347 1350 1352 1365 1377 1378 1380 1388 1389 1391 1393 1396 1404 1407 
1416 1418 1426 1428 1429 1431 1434 1437 1441 1443 1445 1446 1448 1453 1463 
1464 1466 1467 1469 1471 1473 1474 1495 1497 1500 1502 1504 1505 1507 151? 
1533 1558 1567 1586 1590 1592 1593 1605 1606 1608 1609 1611 1615 1616 1620 


PARAMETER CODING MACY11 3041046) 24-AUG-79 09:10 PAGE 174 
CZ21SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0208 
1625 1625 1629 1631 1634 1635 1637 1639 1641 1646 1647 1649 1660 1663 1664 
1666 1668 1674 1675 1696 1702 1703 1716 1717 1719 1721 1724 1725 1727 1728 
1732 1734 1735 1737 1738 1750 1751 1757 1767 1771 1773 1774 1786 1792 1794 
1795 1796 1797 1812 1814 1815 1817 1818 1820 1822 1825 1826 1828 1830 1832 
1835 1844 1845 1847 1849 1850 1851 1852 1854 1856 1857 1859 1861 1864 1865 
1867 1868 1870 1871 1873 1877 1880 1881 1883 1884 1886 1900 1915 1916 1918 
1919 1921 1922 1929 1930 1931 1932 1935 1936 1938 1940 1943 1947 1950 1954 
1957 1960 1961 1963 1964 1966 1967 1968 1969 1973 1974 1976 1993 1994 1996 
2019 2055 2056 2057 2058 2064 2065 2068 2069 2070 2071 2075 2076 2078 2079 
2081 2083 2086 2090 2134 2135 2137 2138 2140 2141 2143 2149 2150 2151 2152 
2161 2163 2165 2166 2168 2170 2171 2175 2178 2192 2193 2202 2204 2205 2207 
2209 2211 2213 2214 2218 2221 2239 2240 2243 2244 2246 2248 2258 2262 2265 
2272 2274 2275 2277 2279 2282 2283 2287 2290 2324 2325 2333 2338 2340 2341 
2343 2344 2346 2354 2358 2361 2362 2364 2371 2385 2386 2388 2390 2392 2393 
2395 2397 2398 2399 2401 2403 2404 2406 2410 2411 2414 2415 2417 2419 2421 
2424 2425 2428 2429 2431 2433 2435 2438 2439 2442 2443 2445 2447 2449 2452 
2472 2474 2475 2476 


2453 2455 2456 2457 2459 2460 2462 2464 ooee 2469 2471 


3157 3158 3161 3164 3165 3167 3169 3171 3177 3178 3180 3182 3191 3193 3197 


OH FMNOOSC— 


3854 3866 3878 3890 3902 3914 3926 3930 3933 3939 3940 3943 3944 3947 3950 


4741 4743 : 
SOPEQU rj 
SOPNAN ra 
SOPNEG 2a 
SOPNOR ew 
SOPNOT oe 871 996 1010 1096 1469 1728 1815 2546 2865 3789 4255 4337 4395 4739 
SOPOR 24 =61012 1448 2143 2163 2551 


S$OPROT en 





C 
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CZ1SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0209 

SOPRO ra 822 824 826 829 831 833 835 879 1017 1024 1037 1054 1056 1058 
1069 1094 1101 1105 1115 1128 1142 1160 1170 1242 1313 1319 1322 1324 1326 
1339 1350 1365 1380 1391 1396 1404 1407 1416 1418 1426 1431 1437 1441 1443 
1453 1495 1500 1507 1586 1611 1623 1625 1629 1631 1637 1649 1660 1668 1696 
1719 1757. «1767 1771 1786 1812 1820 1822 1828 1835 1859 1900 1938 1943 1950 
1996 2211 2279 2390 2522 2524 2526 2529 2531 2533 2555 25 2615 2635 2710 
2712 2807 2809 2827 2841 2850 2867 2869 2875 2882 2917 2930 2983 2986 2988 
2990 3021 3099 3161 3167 3180 3182 3193 3197 3231 3270 3285 3290 3310 3318 
3364 3372 3414 3480 3482 3485 3524 3533 3550 3560 3651 3683 3719 3723 3728 
3737 3766 3768 3775 3784 3816 3820 3830 3842 3854 3866 3878 3890 3902 3914 
3926 3930 3933 3957 3960 3963 3965 3968 3971 3974 397 3979 3982 3990 4003 
4009 4014 4216 4218 4231 4235 4237 4242 4244 4261 4264 4280 4282 4285 4287 


4743 

SOPR1 2a 998 1724 3249 4223 4239 4277 4425 

SOPR2 4 | 870 873 948 956 964 972 987 993 995 1000 1005 1009 1012 1090 
1092 1096 1158 1345 1352 1448 1463 1466 1469 1471 1473 1497 1502 1517 1533 
1558 1567 1590 1639 1666 1727 1732 1737 1792 1814 1817 1830 1847 1854 1873 
1886 1954 1976 2019 2081 2086 2090 2137 2143 2161 2163 2168 2178 2202 2207 
2209 2221 2246 2248 2272 2277 2290 2338 2346 2364 2388 2395 2397 2399 2401 
2406 2410 2417 2419 2424 2431 2433 2438 2445 2447 2455 2457 2462 2464 2469 
2545 2551 2613 2628 2667 2705 2750 2778 2815 2845 2862 2864 2877 2903 2913 


SOPSHF 2a = 1352 1464 1818 1954 2138 2920 3205 3212 3279 3553 3681 3717 4709 

$OPSUB 2a 873 1000 1005 1471 1497 1517 1533 1558 1567 1590 1732 1738 1792 1847 
$4 2395 2406 2417 2431 2445 2668 2706 2913 3199 3209 3288 3726 4221 44235 
4 

$OPSWB 2a 998 

SOPXOR 2a 

SOR 2a = =-1135 1214 1279 1929 1966 2068 2596 4040 

$PuT 2a 

$SSTRUC 2a i 

$SUBON 2a 888 1007 1015 1019 1022 1026 1103 1107 1109 1111 1130 1133 1144 1146 
1149 1150 1156 1162 1163 1167 1168 1201 1204 1207 1209 1212 1223 1229 1231 
1233 1236 1237 1246 1266 1269 1272 1274 1277 1288 1294 1296 1298 1301 1302 
1347 1348 1382 1394 1398 1435 1439 1450 1509 1603 1605 1620 1621 1627 1641 
1642 1658 1670 1684 1714 1722 1730 1748 1750 1773 1794 1832 18335 1862 1875 
1878 1888 1890 1892 1894 1896 1898 1902 1925 1927 1941 1945 1948 1952 1958 
1983 1985 1987 1989 1991 1998 2062 2084 2088 2097 2099 2101 2145 2147 2159 
2176 2180 2200 2219 2223 2250 2259 2270 2288 2292 2294 2336 2356 2359 2373 
2375 2408 2421 2422 2435 2436 2449 2450 2467 2486 2488 2490 2492 2494 2496 
2536 2553 2583 2586 2589 2591 2594 2604 2606 2609 2610 2617 2618 2637 2638 
2645 2654 2656 2685 2703 2718 2733 2735 2737 2770 2775 2791 2793 2795 2817 
2818 2825 2847 2879 2880 2895 2898 2906 2915 2934 2936 3000 3096 3097 3154 
3171 3172 3174 3184 3201 3214 3252 3256 3259 3263 3265 3267 3308 3312 3314 
3316 3321 3322 3347 3368 3371 3391 3400 3403 3412 3418 3421 3433 3434 3436 
3437 3439 3446 3450 3451 3453 3475 3477 3558 3579 3582 3594 3596 3599 3600 
7657 3658 3802 3805 3806 3947 3948 4011 4012 4233 4258 4259 4266 4439 4440 
4447 4617 4635 4638 4649 4651 4654 4655 4669 4672 4676 4682 4683 4687 4688 

STHEN 2a 875 984 990 1002 1081 1084 1087 1098 1122 1125 113 1152 1188 119) 


PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 176 
CZ1SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0210 


1194 1197 1216 1225 1239 1253 1256 1259 1262 1281 1290 1377 1388 1428 1445 
1504 + 1592 1608 1646 1663 1674 1702 1716 1734 1844 1851 1856 1864 1867 1870 
1880 1883 1915 1918 1921 1931 1935 1960 1963 1968 1973 1993 2057 2064 2070 
3 2075 2078 2134 2140 2151 2165 2192 2204 2239 2243 2262 2274 2324 2340 2345 

2361 2385 2392 2403 2452 2459 2471 2476 2519 2548 2570 2573 2576 2579 2598 
2641 2647 2650 2670 2687 2714 2722 2725 2728 2756 2780 2820 2886 2900 2910 
2924 2927 2976 3136 3157 3177 3233 3241 3299 3302 3325 3355 3383 3386 3441 

sviua ~ 3464 3538 3563 3566 3791 4227 4613 4627 4630 4642 4657 4665 

L ‘ 

$T1LO ra] 

SUNTL2 28 = 1794 

SUNTL3 ra] 

SWHILE en = =61071 1076 1118 1184 1249 1341 1614 1633 1824 2413 2427 2441 2560 2566 
2631 2811 2871 3024 3163 3272 3359 3520 3646 3780 3942 4005 4248 4434 4563 
4607 4623 

SSDEFA 2a 

$SSENDS on 

SSERRO on 

$SS$GEN ra] 888 1007 1015 1019 1022 1026 1071 1076 1103 1107 1109 1111 1118 1130 
1133 1139 1144 1146 1150 1156 1163 1168 1184 1201 1204 1207 1209 1212 1218 
1223 1229 1231 1233 1237 1246 1249 1266 1269 1272 1274 1277 1283 1288 1294 
1296 1298 1302 1341 1348 1382 1394 1398 1435 1439 1450 1509 1588 1603 1614 
1621 1627 1633 1642 1658 1670 1684 1698 1714 1722 1730 1748 1769 1788 1798 
1824 1833 1862 1875 1878 1888 1890 1892 1894 1896 1898 1902 1925 1927 1933 
1941 1945 1948 1952 1958 1970 1983 1985 1987 1989 1991 1998 2062 2072 2084 
2088 2097 2099 2101 2145 2147 2159 2176 2180 2200 2219 2223 2250 225 2270 
2288 2292 2294 2336 2356 2359 2373 2375 2408 2413 2422 2427 2436 244) 2450 
2467 2486 2488 2490 2492 2494 2496 2536 2553 2560 2566 2583 2586 2589 2591 
2594 2600 2604 2606 2610 2618 2631 2638 2645 2654 2656 2685 2703 2718 2720 
2733 2735 2737 2770 2791 2793 2795 2811 2818 2825 2843 2871 2880 2895 2898 
2906 2915 2934 2936 3000 3024 3097 3154 3163 3172 3174 3184 3195 3207 3252 
3256 3259 3263 3265 3267 3272 3308 3312 3314 3316 3322 3347 3359 3366 3368 
3391 3400 3403 3412 3416 3418 3434 3437 3439 3446 3451 3453 3475 3477 3520 
3558 3579 3582 3594 3596 3600 3646 3658 3780 3802 3806 3942 3948 4005 4012 
4233 4246 4248 4259 4432 4434 4440 4563 4607 4617 4623 4635 4638 4644 4649 
4651 4655 4669 4672 4676 4683 4688 

$$GETS oe 888 1007 1014 1015 1019 1021 1022 1026 1103 1107 1109 1111 1130 1132 
1133 1144 1146 1149 1150 1156 1162 1163 1167 1168 1201 1203 1204 1207 1209 
1211 1212 1222 1223 1229 1231 1233 1236 1237 1246 1266 1268 1269 1272 1274 
1276 1277 1287 1288 1294 1296 1298 1301 1302 1347 1348 1382 1393 1394 1398 
1434 1435 1439 1450 1509 1603 1605 1620 1621 1627 1641 1642 1658 1670 1684 
1714 1721 1722 1730 1748 1750 1773 1794 1832 1833 1861 1862 1875 1877 1878 
1888 1890 1892 1894 1896 1898 1902 1925 1927 1940 1941 1945 1947 1948 1952 
1957 1958 19d3 1985 1987 1989 1991 1998 2062 2083 2084 2088 2097 2099 2101 
2145 2147 2159 2175 2176 2180 2200 2218 2219 2223 2250 2258 2259 2270 2287 
2288 2292 2294 2336 2356 2358 2359 2373 2375 2408 2421 2422 2435 2436 2449 
2450 2466 2467 2486 2488 2490 2492 2494 2496 2536 2553 2583 2585 2586 2589 
2591 2593 2594 2604 2606 2609 2610 2617 2618 2637 2638 2645 2654 2656 2684 
2685 2702 2703 2718 2733 2735 2737 2770 2775 2791 2793 2795 2817 2818 2825 
2847 2879 2880 2894 2895 2898 2906 2915 2934 2936 3000 3096 3097 3154 317) 
3172 3174 3184 3201 3214 3251 3252 3256 3258 3259 3263 3265 3267 3307 3308 
3312 3314 3316 3321 3322 3347 3368 3371 3391 3400 3402 3403 3412 3418 3421 
3433 3434 3436 3437 3439 3446 3450 3451 3453 3475 3477 3557 3558 3579 3581 
3582 3594 3596 3599 3600 3657 3658 3802 3805 3806 3947 3948 4011 4012 4233 
4258 4259 4266 4439 4440 4447 4617 4635 4637 4638 4649 4651 4654 4655 4669 


, 
PARAMETER CODING MACY11 30(1046) 24-AUG-79 09:10 PAGE 177 
CZ1SHB.P11 24-AUG-79 09:08 CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0211 


$$GETT 28 =61014 1021 1132 1203 1211 1222 1268 1276 1287 1393 1434 1721 1861 1877 
1940 1947 1957 2083 2175 2218 2258 2287 2358 2466 2585 2593 2684 2702 2894 
3251 3258 3307 3391 3402 3557 3581 4637 4671 

$SS$LPCN 28 = 33367 3417 

$s$PoP 2a 888 1007 1015 1019 1022 1026 1103 1107 1109 1111 1130 1133 1144 1146 
1149 1150 1156 1162 1163 1167 1168 1201 1204 1207 1209 1212 1223 1229 1231 
1233 1236 1237 1246 1266 1269 1272 1274 1277 1288 1294 1296 1298 1301 1302 
1347 1348 1382 1394 1398 1435 1439 1450 1509 1603 1605 1620 1621 1627 1641 
1642 1658 1670. 1684 1714 1722 1730 1748 1750 1773 1794 1832 1833 1862 1875 
1878 1888 1890 1892 1894 1896 1898 1902 1925 1927 1941 1945 1948 1952 1958 
1983 1985 1987 1989 1991 1998 2062 2084 2088 2097 2099 2101 2145 2147 2159 
2176 2180 2200 2219 2223 2250 2259 2270 2288 2292 2294 2336 2356 2359 2373 | 

375 2408 2421 2422 2435 2436 2449 2450 2467 2486 2488 2490 2492 2494 2496 

2536 2553 583 2586 2589 2591 2594 2604 2606 2609 2610 2617 2618 2637 2638 
2645 2654 2656 2685 2703 2718 2733 2735 2737 2770 2775 2791 279 2795 2817 
2818 2825 2847 2879 2880 2895 2898 2906 2915 2934 2936 3000 3096 3097 3154 
3171 3172 3174 3184 3201 3214 3252 3256 3259 3263 3265 3267 3308 3312 3314 
3316 3321 3322 3347 3368 3371 3391 3400 3403 3412 3418 3421 3433 3434 3436 
3437 3439 3446 3450 3451 3453 3475 3477 3558 3579 3582 3594 3596 3599 3600 
3657 3658 3802 3805 3806 3947 3948 4011 4012 4233 4258 4259 4266 4439 4440 
4447 4617 4635 4638 4649 4651 4654 4655 4669 4672 4676 4682 4683 4687 4688 

$$PUSH ca 875 877 984 986 990 992 1002 1004 1016 1023 1071 1072 1074 1076 
1077 1079 1081 1083 1084 1086 1087 1089 1098 1100 1118 1119 1121 1122 1124 
1125 1127 1134 1135 1140 1149 1152 1154 1162 1167 1184 1185 1187 1188 1190 
1191 1193 1194 1196 1197 1199 1205 1213 1214 1219 1224 1225 1227 1236 1239 
1241 1249 1250 1252 1253 1255 1256 1258 1259 1261 1262 1264 1270 1278 1279 
1284 1289 1290 1292 1301 1341 1342 1344 1347 1377 1379 1388 1390 1395 1428 
1430 1436 1445 1447 1504 1506 1588 1589 1592 1594 1608 1610 1614 1615 1617 
1620 1633 1634 1636 1641 1646 1648 1663 1665 1674 1676 1698 1699 1702 1704 
1716 1718 1723 1734 1736 1769 1770 1788 1789 1824 1825 1827 1832 1844 1846 
1849 1853 1856 1858 1863 1864 1866 1867 1869 1870 1872 1879 1880 1882 1883 
1885 1915 1917 1918 1920 1921 1923 1929 1934 1935 1937 1942 1949 1959 1960 
1962 1963 1965 1966 1971 1973 1975 1993 1995 2055 2059 2064 2066 2068 2073 
2075 2077 2078 2080 2085 2134 2136 2140 2142 2149 2153 2165 2167 2177 2192 
2194 2204 2206 2220 2239 2241 2243 2245 2260 2262 2264 2274 2276 2289 2324 
2326 2340 2342 2343 2345 2360 2361 2363 2385 2387 2392 2394 2403 2405 2413 
2414 2416 2421 2427 2428 2430 2435 2441 2442 2444 2449 2452 2454 2459 2461 
2468 2471 2473 2474 2478 2519 2521 2548 2550 2560 2561 2563 2566 2567 2569 
2570 2572 2573 2575 2576 2578 2579 2581 2587 2595 2596 2601 2609 2617 2631 
2632 2634 2637 2641 2643 2647 2649 2650 2652 2670 2672 2686 2687 2689 2704 
2714 2716 2720 2721 2722 2724 2725 2727 2728 2730 2756 2758 2780 2782 2811 
2812 2814 2817 2820 28 2843 2844 2871 2872 2874 2879 2886 2888 2896 2900 
2902 2910 2912 2924 2926 2927 2929 2976 2978 3024 3025 3027 3096 3136 3138 
3157 3159 3163 3164 3166 3171 3177 3179 3195 3196 3207 3208 3233 3235 3239 
3240 3241 3243 3247 3248 3253 3260 3272 3273 3275 3283 3284 3299 3301 3302 
3304 3309 3321 3325 3327 3353 3357 3359 3360 3362 3363 3364 3366 3367 3371 
3383 3385 3386 3388 3392 3404 3414 3416 3417 3421 3441 3443 3450 73455 3457 
3464 3466 3520 3521 3523 3538 3540 3559 3563 3565 3566 3568 3583 3599 3646 
3647 3649 3657 3780 3781 3783 3791 3793 3805 3942 3943 3945 3947 4005 4006 
4008 4011 4227 4229 4246 4247 4248 4249 4251 4258 4432 4433 4434 4435 4437 
4439 4563 4564 4566 4607 4608 4610 4613 4615 4623 4624 4626 4627 4629 4630 
“— 4639 4640 4645 4654 4657 4659 4665 4667 4673 4682 4687 

$S$SELE r] 

$$SETS PZ] 875 877 984 986 990 992 1002 1004 1016 1023 1071 1072 1074 1076 
1077 1079 1081 1083 1084 1086 1087 1089 1098 1100 1118 1119 1121 1122 1124 
1125 1127 1134 1135 1140 1149 1152 1154 1162 1167 1184 1185 1187 1188 1190 














F 
PARAMETER CODING MACY11 30(1046) B bay 79 09:10 PAGE 178 
CROSS REFERENCE TABLE -- MACRO NAMES SEQ 0212 


CZ1SHB.P11 24-AUG-79 09:08 
1191 1193 1194 1196 1197 1199 i205 1213 1214 1219 1224 1225 1227 1236 1239 
1241 1249 1250 1252 1253 1255 1256 1258 1259 1261 1262 1264 1270 1278 1279 
1284 1289 1290 1292 1301 1341 1342 1344 1347 1377 1379 1388 1390 1395 1428 
1430 1436 1445 1447 1504 1506 1588 1589 1592 1594 1608 1610 1614 1615 1617 
1620 1633 1634 1636 1641 1646 1648 1663 1665 1674 1676 1698 1699 1702 1704 
1716 1718 1723 1734 1736 1769 1770 1788 1789 1824 1825 1827 1832 1844 1846 
1849 1853 1856 1858 1863 1864 1866 1867 1869 1870 1872 1879 1880 1882 1883 
1885 1915 1917 1918 1920 1921 1923 1929 1934 1935 1937 1942 1949 1959 1960 
1962 1963 1965 1966 1971 1973 1975 1993 1995 2055 2059 2064 2066 2068 2073 
2075 2077 2078 2080 2085 2134 2136 2140 2142 2149 2153 2165 2167 2177 2192 
2194 2204 2206 2220 2239 2241 2243 2245 2260 2262 2264 2274 2276 2289 2324 
2326 2340 2342 2343 2345 2360 2361 2365 2385 2387 2392 2394 2403 2405 2413 
2414 2416 2421 2427 2428 2430 2435 2441 2442 2444 2449 2452 2454 2459 2461 
2468 2471 2473 2474 2478 2519 2521 2548 2550 2560 2561 2563 2566 2567 2569 
2570 2572 2573 2575 2576 2578 2579 2581 2587 2595 2596 2601 2609 2617 2631 
2632 2634 2637 2641 2643 2647 2649 2650 2652 2670 2672 2686 2687 2689 2704 
2714 2716 2720 2721 2722 2724 2725 2727 2728 2730 2756 2758 2780 2782 2811 
2812 2814 2817 2820 2822 2843 2844 2871 2872 2874 2879 2886 2888 2896 2900 
2902 2910 2912 2924 2926 2927 2929 2976 2978 3024 3025 3027 3096 3136 3138 
3157 3159 3163 3164 3166 3171 3177 3179 3195 3196 3207 3208 3233 3235 3239 
3240 3241 3243 3247 3248 3253 3260 3272 3273 3275 3283 3284 3299 3301 3302 
3304 3309 3321 3325 3327 3353 3357 3359 3360 3362 3363 3364 3366 3367 3371 
3383 3385 3386 3388 3392 3404 3414 3416 3417 3421 3441 3443 3450 3455 3457 
3464 3466 3520 3521 3523 3538 3540 3559 3563 3565 3566 3568 3585 3599 3646 


4632 
$S$SETT 2a 
. ABS. 024254 000 


ERRORS DETECTED: 0 


C21SHB,CZ1TSHB/CRF/SOL/EQ:ONEF ILE=NLISTF.P11,SVC.SML,SPMAC.SML,LISTF.P11,CZ2TSHB.P11 
RUN-TIME: 126 138 11 SECONDS 

RUN-TIME RATIO: 311/277=1.1 
CORE USED: 32K (64 PAGES) 





